# `inet` is the ip, default gw and dns settings
# upon lost connection this daemon renew the settings

#!/usr/bin/perl

use strict;
use POSIX qw(setsid);
use Net::Ping;

{ fork and exit; setsid }

my $router = q{default gw ip};
my $net    = Net::Ping->new;

sleep 5, $net->ping($router, 1) or `inet` while 1
[download]