C:\test>start /b perl -MIO::Socket 
-E"$s=IO::Socket::INET->new(Listen=>1,LocalPort=>12345);$c=$s->accept;sleep 30"

C:\test>perl -MIO::Socket 
-E"$s=IO::Socket::INET->new('localhost:12345');eval{alarm 10;<$s>};print'here'"
here