/usr/share/doc/libnet-libdnet-perl/examples/route-get.pl is in libnet-libdnet-perl 0.98-1build5.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 | #!/usr/bin/perl
use strict; use warnings;
my $dst = shift || die("Pass dst");
use Net::Libdnet::Route;
my $h = Net::Libdnet::Route->new;
my $ret = $h->get($dst);
$ret ? print "GW: $ret\n" : print "Same subnet\n";
|