Test::TCPを使って何故かハマった http://d.hatena.ne.jp/tokuhirom/20080817/1218953905 を見つつ、試しに書いてみた #!/usr/bin/perl use strict; use warnings; use Test::TCP; use IO::Socket::INET; test_tcp( client => sub { my $port1 = shift; test_tcp( client => sub { my $port2 = shift; while (1) { sleep 1; } }, server => sub { my $port2 = shift; server($port2); }, ); }, server => sub { my $port1 = shift; server($port1); }, ); s