You can do:

BEGIN { 
   $X = 'My::Module';
   require $X;
}
[download]

But I can't remember how require does scoping.

----
I wanted to explore how Perl's closures can be manipulated, and ended up creating an object system by accident.
-- Schemer

Note: All code is untested, unless otherwise stated