use strict;
{
  my $foo = 1;
  bar();
}

sub bar {
  print $foo;
}