sub Initialize_child {
  print $foo;
}

##</code><code>##

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

sub bar {
  print $foo;
}

##</code><code>##

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

sub bar {
  print $foo;
}