Just for completeness, our is like my not restricted to the scope of the package.

So this example can be simplified as long as the packages are not enclosed in a block or in different files.

#!/usr/bin/perl -w
use strict;
 
{
  package Foo; 
  our $bar = "Hello World";
 
  package Zoo;
  print $bar; # no "Foo::" necessary 
}
 
print $Foo::bar; #  now again in package main
 
__END__
Hello WorldHello World
[download]