This is eaxctly what I need to do. I am new to PERL so having some code for me to base my stuff on would be a great help. If you still have this piece of code would you mind posting it? Thanks