{ package Foo;
  $foo = 1;
}
{ package Bar;
  print $Foo::foo, "\n";
}