#!/usr/bin/perl
use strict;
use Net::Routing qw($Error :constants);
my $interface = shift or die("Give interface");
my $route = Net::Routing->new(target => $interface, family => NR_FAMILY_INET6());
if (! defined($route)) {
print "ERROR: $Error\n";
exit(1);
}
$route->list;
exit(0);