You guys crack me up. The fact is I have done work and searched a good bit for the answer but I suppose I was looking in the wrong place. Although I don't expect people to write code for me I do think it is very helpful if someone who wants to share their knowledge without all the "make you feel guilty" attitude just posts some code that they have already written. Remember, everyone was new at Perl at some point. If you did all the research yourself and never used anyone else's code then codos to you but my guess is that most everyone has used other people's code at some point.
Anyway, to the one that greatly helped me with posting some code, thank you very very much!!!!!