#!/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