#! /usr/bin/perl

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

my ($host,$rtt,$ip);
my @host_array = ("OSSTNGMCN01", "OSSTNGMCN04", "PROJECTX99");
my $p = Net::Ping->new("syn");

$p->{port_num} = getservbyname("http", "tcp");
foreach $host (@host_array) {
  $p->ping($host);
}
while (($host,$rtt,$ip) = $p->ack) {
  print "HOST: $host [$ip] ACKed in $rtt seconds.\n";
}