Thanks!

I added use strict;, and fixed the indent problem. As for use warnings;, doesn't the "-w" in #!/usr/bin/perl -w do the same thing?

I don't have time right now, but I'll review the script and consider your other suggestions as well. I do appreciate it!