#!C:\perl\bin\perl
use strict;
use warnings;

use Net::Ping::External qw(ping);

print ping(host=>"yahoo.com"), " | ", ping(host=>"wayfakehostname.com");

##</code><code>##

C:\Documents and Settings\marc>perl test.pl
0 | 0

##</code><code>##

return 1 if $result =~ /time?\d*ms/;
  return 0;

##</code><code>##

return $result =~ /time=\d+ms/?1:0;