me@myhost /home/me> perl test.pl
Listening on 55644
Can't connect to 127.0.0.1:55648: Bad file number at test.pl line 5 (*)
Caught SIGCHLD for 10701
^C
(*) I changed this die() to a croak()