This sounds like you're recreating, one step at a time, the code I already have in a recent WT column. Please check there first.

-- Randal L. Schwartz, Perl hacker