http://www.perlmonks.org?node_id=849632


in reply to check my code

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