Select Code to Download

sub Initialize_child {
  print $foo;
}

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

use strict;
{
  my $foo = 1;
...
sub bar {
  print $foo;
}