use strict;
use warnings;

sub outer {
   my $foo;

   sub inner {
      $foo;
   }

   inner();
}