#!/usr/local/bin/perl -w

use Net::Ping;

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



##</code><code>##


Use of uninitialized value at /usr/lib/perl5/5.00503/i386-linux/Socket.pm line 295.
Bad arg length for Socket::unpack_sockaddr_in, length is 0, should be 16 at
/usr/lib/perl5/5.00503/i386-linux/Socket.pm line 295.