12345678910111213141516 #!/usr/bin/perluse strict;use warnings;use Data::Dumper;use Net::Routing qw($Error :constants);my $route = Net::Routing->new(target => NR_TARGET_DEFAULT(), family => NR_FAMILY_INET6());if (! defined($route)) { print "ERROR: $Error\n"; exit(1);}$route->list;exit(0);
#!/usr/bin/perl
use
strict;
warnings;
Data::Dumper;
Net::Routing
qw($Error :constants)
;
my
$route
= Net::Routing->new(
target
=> NR_TARGET_DEFAULT(),
family
=> NR_FAMILY_INET6());
if
(!
defined
(
)) {
print
"ERROR: $Error\n"
exit
(1);
}
->list;
(0);