#!/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";
#!/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";