Скрипт переполучения IP адреса на perl

Скрипт переполучения IP адреса:

inet.pl :

#!/usr/bin/perl

$inet_if = 'fxp0';

use Net::Ping::External qw(ping);

my $alive = ping(host => "8.8.8.8");

if ($alive == 0) {
    system("killall dhclient");
    system("route delete default");
    system("ifconfig $inet_if -alias");
    system("ifconfig $inet_if down");
    system("sleep 3");
    system("ifconfig $inet_if up");
    system("dhclient $inet_if");
}