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

my $target = 'esxi01';
my $ping_obj = Net::Ping->new();

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