#!/usr/bin/perl
use IO::Socket;
use Net::Ping;
$sock = new IO::Socket::INET (LocalHost => 'xxx.xxx.xxx.xxx', LocalPort => 9321, Proto => 'tcp', Listen => 5, Reuse => 1 );
die "Socket could not be created. Reason: $!" unless $sock;
$reach = Net::Ping->new($ > ? "tcp": "icmp");
(defined $reach) or die "Couldn't create Net::Ping object: $!\n";
while ($new_sock = $sock->accept()) {
while (defined ($buf = <$new_sock>)) {
print $buf;
$host = (split(/:/,$buf))1;
print "$host";
if($reach->ping("$host"))
{
print "host is reachable";
}
else
{
print "host is unreachable";
}
}
}#end of 1st while loop
close ($sock);