the reason do doesn't, is because of your my declaration. you've created a lexical variable that doesn't exist past the do statement. either use vars (vars.pm), use Exporter (Exporter.pm), or drop the my declaration.

and read up on perlmodtut and perlmod for more information on modules, including how to use them, and how to create them.

~Particle *accelerates*