Or if you are on a Windows-box:

use strict;
use Win32::PingICMP;

my $p = Win32::PingICMP->new();

foreach (qw /www.yahoo.com www.cpan.org www.perlmonks.org/) {
    if ($p->ping($_)) {
        print "Pinging to $_ took ".$p->details->{roundtriptime}."\n";
    } else {
        print "Pinging $_ unsuccessful: ".$p->details->{status}."\n";
    }
}
[download]