Perl: netcat with IO::Socket and threads.

I've recently attempted a netcat implementation in perl. I felt like I needed to do some sockets and threads in perl.

It is rather simple, and doesn't handle alot of the normal errors (like a broken pipe, or when a stream closes prematurely).

The script can be found here.

A syntax highlighted version can be found here

Comments and ideas are welcome, it's basically a nice script to have on systems that doesn't have netcat available out of the box.