This is exactly what I was looking for. I've done similar things in C, just wasn't sure how to handle it in Perl.

Thanks,

Sean.