use Net::Ping;

	   $p = Net::Ping->new();
	   print "$host is alive.\n" if $p->ping($host);
	   $p->close();

	   $p = Net::Ping->new("icmp");
	   $p->bind($my_addr); # Specify source interface of pings
	   foreach $host (@host_array)
	   {
	       print "$host is ";
	       print "NOT " unless $p->ping($host, 2);
	       print "reachable.\n";
	       sleep(1);
	   }
	   $p->close();