I've done a bunch of this kind of thing lately (not on ActiveState Perl, mind you) so it may help if you could let us see the relevant code.