Select Code to Download

use warnings;
use strict;
...
}

close($socket);

$ nohup ./listen.pl >listen.log 2>listen.log &

$ telnet localhost 8888
Trying ::1...
...
^]
telnet> quit
Connection closed.

$ cat listen.log 
You there?

Next session.

$ jobs
[1]+  Running    nohup ./listen.pl > listen.log 2> listen.log &