/usr/share/doc/libnet-libdnet-perl/examples/fw-add.pl is in libnet-libdnet-perl 0.98-1build1.
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 $rule = "@ARGV" || die("Pass rule");
use Net::Libdnet::Fw;
my $h = Net::Libdnet::Fw->new;
my $s = $h->add($rule);
print $s ? "Ok\n" : "Failed\n";
|