$ perl SocketT.pl 1  (to launch as a server)
$ telnet localhost 12000 (in another window, to tie up the server)
$ perl SocketT.pl 2  (to test if it would connect and print out)