I finally got a video card back in my old machine that I first learned Perl on. Going through the machine I found all my old code stowed away in a truecrypt drive. So, I re-coded this bit i called Sweep-N-Scan to work well with IO::Socket. Nothing really special, but i've noticed that the snippit count for my beloved first language is very very low. So, here's to you, Perl :)