Chamando o módulo network::Route

app.pl

#!/usr/bin/env perl

use strict;
use warnings;

use lib '/usr/lib/tchaves';
use network::Route qw( ip_rule_list rule_add rule_del rule_emb ping_emb r_add_147 r_add_34 );

use strict;
use warnings;

my %options = (
    fwbuilder => "/etc/fw/fw1sesma.fw", 
    destino   => "8.8.4.4", 
    arquivo   => "/tmp/rules.txt"
);

my @rule = &ip_rule_list;

my $rule_add_link2   = rule_emb("add", $options{destino}, "LINK2");
my $ping_link2       = ping_emb($options{destino});
my $rule_del_link2   = rule_emb("del", $options{destino}, "LINK2");

if ( $ping_link2 eq "100" ) {
    if ( @rule ) {
        foreach ( @rule ) {
            if ( /LINK2/ ) {
                rule_del($_);
            }
        }
    }
}
else {
    foreach ( @rule ) {
        if ( ! /LINK2/ and ! /LINK3/ ) {
            map { rule_add( $_ ) } &r_add_34($options{fwbuilder});
        }
        else {
            print;
        }
    }
}