sub MahPing {
    my ( $host ) = @_;
    for my $proto ( qw/ tcp icmp syn / ){
        return !!1 if Net::Ping->new( $proto, 5 ) ->ping( $host );
    }
    return !!0;
}