I humble myself, as unworthy of the great perl coding language and before you oh great indegnant one, but I down loaded this code from the internet and was trying to run it as is so I would not screw it up, but it's not working, so I so humbly asked your wisdom. I added "use strict;" and "use warnings;" and it gave no errors or warnings. Please do not chastise me for my ignorance of perl, I'm trying to learn it by downloading scripts from the web and then trying to apply them.