sub PingTest {
    my ($myhost, $protocol, $timeout) = @_;
    my $p = Net::Ping->new($protocol, $timeout);
    
    if (!$p->ping($myhost)) {
        print "Unreachable\n";
    }
    else {
        print "Reachable\n";
    }
    
    $p->close();
}