C:\Code>perl socket.pl
Receiver...
Testing
This is a test by telnetting to port 7070

C:\Code>