$ perl -MIO::Socket -E'$s=IO::Socket::INET->new(Listen=>1,LocalPort=>12345);$c=$s->accept; sleep 30' &
[1] 3863

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