[Emj]

#!/usr/bin/perl -w 

use strict;
Use Net::Ping;

my $ping = Net::Ping->new("icmp");

my $tr;
my $ip;
my $duration;
while()
{
  ($r, $duration, $ip) = $ping->ping("66.249.93.99", 5.5);

  printf("%s :: Link is UP rtt: %2f", scalar localtime, 1000 * $duration) if $r;
  printf("%s :: Link is DOWN", scalar localtime) unless $r;
  sleep(600);

}

Det här scriptet pingar google var 10:nde minut och skriver ut svaret, ett enkelt sätt att kolla om länken lever.