Thanks.

Currently, I don't know how to use modules, I'm new to Perl. It also seems that much of the things I write have already been done, usually alot more comprehensive than my own.

Nobody likes to reinvent the wheel, unless they can make it rounder. My above script is just a smaller, simpler wheel.