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

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

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