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

##</code><code>##

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

##</code><code>##

    $sock->blocking(1) if $blocking;

##</code><code>##

    /usr/local/lib/perl5/5.8.3/i386-freebsd
    /usr/local/lib/perl5/5.8.3
    /usr/local/lib/perl5/site_perl/5.8.3/i386-freebsd
    /usr/local/lib/perl5/site_perl/5.8.3
    /usr/local/lib/perl5/site_perl/5.8.0/i386-freebsd
    /usr/local/lib/perl5/site_perl/5.8.0
    /usr/local/lib/perl5/site_perl/5.6.1
    /usr/local/lib/perl5/site_perl/5.005
    /usr/local/lib/perl5/site_perl

##</code><code>##

BEGIN {
    @INC = (qw(
        /usr/local/lib/perl5/5.8.3/i386-freebsd
        /usr/local/lib/perl5/5.8.3
        /usr/local/lib/perl5/site_perl/5.8.3/i386-freebsd
        /usr/local/lib/perl5/site_perl/5.8.3
        /usr/local/lib/perl5/site_perl
        .
    ));
}