LJ Archive

Listing 12. ping.pl

#!/usr/bin/perl
# ping.pl - a program to ping a host
use Net::Ping;
$pinghost = 'server.onsight.com';
$p = Net::Ping->new("tcp", 2);
for (;;) {
   unless ($p->ping($pinghost)) {
         print "Fail: ", scalar(localtime), "\n";
   } else {
      print "Success: ", scalar(localtime), "\n";
   }
        sleep 10;
}
LJ Archive