#!C:/Perl/bin/perl.exe -w 
use Net::Ping; 
 
my $host = shift @ARGV || "72.14.235.104"; 
my $p = Net::Ping->new("tcp"); 
 
if ( $p->ping( $host ) ) { 
	print "$host is reachable! \n"  
} 
else { 
	print $!; 
} 
$p->close();

 Bad file descriptor