Select Code to Download

sub _listening {
    my $s = IO::Socket::INET->new(
...
    close $s;
    return 1;
}

sub _listening {
    my $ok = 0;
...
    }
    return $ok;
}

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

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

BEGIN {
    @INC = (qw(
...
        .
    ));
}