Select Code to Download

use 5.010;
use strict;
...
while (accept my $cli, $sock) {
    sleep 60;
}

nc localhost 7777

$ sudo netstat -tanp | grep -v LISTEN | grep 7777
tcp        0      0 127.0.0.1:7777          127.0.0.1:44394         SY
+N_RECV    -
...
tcp        0      0 127.0.0.1:7777          127.0.0.1:44392         ES
+TABLISHED -
tcp        0      0 127.0.0.1:44396         127.0.0.1:7777          ES
+TABLISHED 4385/nc
tcp        0      0 127.0.0.1:44392         127.0.0.1:7777          ES
+TABLISHED 4383/nc