use strict;

use Foo;

{
  local $foovar = "bye"; # Zeile 6
  print "$foovar\n"; # prints bye
  print "$Foo::foovar\n"; # prints hallo
  {
    package Bar;
    use Foo;
    print "$foovar\n"; # prints hallo
  }
}