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

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