$p = Net::Ping->new();
$p->ping(\@list_of_hosts, $timeout, $num_forks);