# Module.pm
use warnings;
package Module;
my $thingy = 'thangy';
sub doit { eval 'print "thingy is $thingy\n"'; }
1;

##</code><code>##

use Module;
Module::doit();  # "thingy is "

##</code><code>##

{
   use warnings;
   package Module;
   my $thingy = 'thangy';
   sub doit { eval 'print "thingy is $thingy\n"'; }
   1;
}

Module::doit();  # "thingy is "

##</code><code>##

{
   use warnings;
   my $thingy = 'thangy';
   sub doit { eval 'print "thingy is $thingy\n"'; }
}

doit();  # "thingy is "

##</code><code>##

{
   use warnings;
   my $thingy = 'thangy';
   sub doit { print "thingy is $thingy\n"; }
}

doit();  # "thingy is thangy"

##</code><code>##

{
   use warnings;
   my $thingy = 'thangy';
   sub doit { my $ref = \$thingy;  # Close over $thingy
              eval 'print "thingy is $$ref\n"'; }
}

doit();  # "thingy is thangy"

##</code><code>##

{
   use warnings;
   my $thingy = 'thangy';
   sub doit { my $thingy = $thingy;  # Close over $thingy
              eval 'print "thingy is $thingy\n"'; }
}

doit();  # "thingy is thangy"

##</code><code>##

{
   use warnings;
   our $thingy = 'thangy';
   sub doit { eval 'print "thingy is $thingy\n"'; }
}

doit();  # "thingy is thangy"