#!/usr/bin/perl

use strict;
use warnings;
use Net::Ping;

my $target = 'www.perlmonks.com';
my $ping = Net::Ping->new("tcp", 2);
$ping->{'port_num'} = (getservbyname("http", "tcp") || 80);
if ($ping->ping($target)) {
    print "Yes, I can ping $target\n";
} 
else {
    print "No, I cannot ping $target\n";
}
$ping->close();