routes.pl

#!/usr/bin/env perl

use strict;
use warnings;

my @networks = qw( 192.168.47 192.168.48 );

my $ifconfig = `ifconfig eth1|grep 192.168`;
my ( $ipaddr ) = ( $ifconfig =~ /inet addr:([0-9\.]+)/ );
my $gw = $ipaddr;
$gw =~ s/([0-9]+\.[0-9]+\.[0-9]+)\.[0-9]+/$1.1/g;

for my $network ( @networks ) {
    if ( $ipaddr !~ /$network/ ) {
        `route add -net ${network}.0 netmask 255.255.255.0 gw $gw`;
    }
}

exit;