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

doit();  # "thingy is thangy"