Pretty good code, from just a quick peek, but even though you are declaring your variables, you aren't checking up on yourself with the warnings and strict pragmas.

Please use them. Even experienced Perl programmers use them.

"-w" (or "use warnings") and "use strict" are your friends.

cut-n-paste the following code and run it as your punishment.

#!/usr/bin/perl -w

use strict;

my $i;
for($i = 0; $i < 100; $i++) {
     print "I will use strict and warnings.\n";
};
[download]

J. J. Horner
Linux, Perl, Apache, Stronghold, Unix
jhorner@knoxlug.org http://www.knoxlug.org/