I usually do this sort of thing with Filter::Handle which has always worked well for me. Might be worth taking a look at it. Regards,
--Rhet