I don't see any problems with your code immediately, other than that you are violating the convention that lowercase package names are reserved for pragmata, not user objects. Try renaming your packages to an initial uppercase character.

-- Randal L. Schwartz, Perl hacker
Be sure to read my standard disclaimer if this is a reply.