use Net::Ping;
my $host="192.168.0.1";
my $timeout=0.1;
my $p = Net::Ping->new("icmp");
if $p->ping($host, $timeout){
        print "$host is alive.?n";
}
$p->close();

root ユーザになれる環境でないと実行できないみたい

引用元：http://www.augustus.to/blog/3128/archives/000042.html