{
  package Foo::Bar;
  our $monkey;
  $monkey = 'capuchin';
}

{
  package main;
  use feature 'say';
  say $monkey;   # blank line (it's undefined)
  say $Foo::Bar::monkey;
}