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