Select Code to Download

#!/usr/bin/env perl
use IO::Socket::INET;
...
shutdown(SOCKET, 0);                # I/we have stopped reading data
shutdown(SOCKET, 1);                # I/we have stopped writing data
shutdown(SOCKET, 2);                # I/we have stopped using this soc
+ket

(perl -e 'print time';sleep 2) | telnet 127.0.0.1 5101 2>/dev/null|tai
+l -1

#!/usr/bin/env perl

...
}else{
    exit 0;
}