Hi.
well, i do not know about CS but PING is not a problem

use Net::Ping;

my $host = 'perlmonks.com';
my $p = Net::Ping->new();
print "$host is alive.\n" if $p->ping($host);
$p->close();
[download]