sub _listening {
    my $s = IO::Socket::INET->new(
        Timeout  => TIMEOUT,
        PeerHost => $_[0],
        Proto    => $_[1],
        PeerPort => $_[2]
    ) or return 0;
    close $s;
    return 1;
}