in reply to check my code

Thanks for the advice guys. I modified the script to use many of the comments.

In Section Seekers of Perl Wisdom