my $ping = Net::Ping->new("icmp");
                if ($ping->ping($host, $threshold)) {