ping

#!/usr/bin/perl -w

use Net::Ping;

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

$p->hires;

my @host_array=qw(

 192.168.0.1

 10.10.10.1

 66.218.71.198

 clubs.dir.bg

);



foreach $host (@host_array)

 {

  print "$host is ";

  my $pt=$p->ping($host,2);

  print "NOT " unless $pt;

  print "touchable at ",scalar(localtime());

  print (" and time is ",($p->ping($host))[1]*100," msec") unless not $pt;

  print ".\n";

  sleep(1);

 }

$p->close();