Net::Ping is a pure Perl ping solution; that avoids all the potential anomalies of executing system commands. It can be as simple as

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

It also gives you the opportunity to use tcp, udp, or icmp protocol, and many other settings.