How about using Net::Ping?

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

It's part of the normal ActiveState distribution.