view release on metacpan or  search on metacpan

script/torrent  view on Meta::CPAN

            return;
        };
        push @fhs, $fh;
    }

    # Connect
    my $socket = IO::Socket::INET->new(
        PeerAddr => $ip,
        PeerPort => $port,
        Proto    => 'tcp',
        Timeout  => CONNECT_TIMEOUT,
    );
    unless ($socket) {
        print "  [$tag] connect failed\n";
        close $_ for @fhs;
        return;
    }
    binmode($socket);

    # Handshake
    my $rpid = do_handshake($socket, $info_hash, $peer_id);