use strict;
use Net::Ping;		
my @addresses = ('172.016.016.028', '172.16.16.28');

my $p = Net::Ping->new("icmp", 0.5) or die "Can't create new ping object: $!\n";

for (@addresses){
	if ($p->ping($_)){
		print "ping of $_ successful\n";
	}else{
		print "ping of $_ failed\n";
	}
}

$p->close;

_____OUTPUT_____
ping of 172.016.016.028 failed
ping of 172.16.16.28 successful