Server:

[root@doorgunner scripts]# perl server.pl -server
server.pl 18904: Server started on Port 1337 at Fri May 18 11:32:44 2007
server.pl 18904: Connection from 127.0.0.1 at Fri May 18 11:32:47 2007
server.pl 18904: forked 18906 at Fri May 18 11:32:47 2007
server.pl 18904: Killed 18906 with exit 256 at Fri May 18 11:32:47 2007
[root@doorgunner scripts]#

Client:

[root@doorgunner scripts]# perl client.pl -connect
Connected to 127.0.0.1 on port 1337

Communication failed, exiting...
[root@doorgunner scripts]#


Netcat:

[root@doorgunner scripts]# nc localhost 1337
CONNECT
DENIED
[root@doorgunner scripts]#