use Net::Ping;

#pingチェック
my $proxy_host = ここに串のIPアドレス;
my $timeout=5; #タイムアウト値
my $pObj = Net::Ping->new("icmp");

if($pObj->ping($proxy_host, $timeout)){
print "★ping ok!\n";
}else{
print "×ping ng...\n";
}
$pObj->close();


ソース的にはこのくらいでいけるけど