#!/usr/bin/perl
use strict;
use warnings;
use Net::Ping;

my $target   = 'perlmonks.org';
my $ping_obj = Net::Ping->new();

print "Net::Ping version is $Net::Ping::VERSION\n";

if ($ping_obj->ping($target)) {
    print "Yes, I can ping $target\n";
} else {
    print "No, I cannot ping $target\n";
}