sub Initialize_child {
  print $foo;
}