use strict;
use warnings;

our $foo = 'I am main-foo';
our $bar = 'I am main-bar';

package special;
# ab hier im Package 'special'
our $foo = 'I am special-foo';
our $bar = 'I am special-bar';
our $foofoo = 'I am very special';

package main;
# nun wieder in 'main'
print "Main: ", $foo, "\n"; 
print "Main: ", $bar, "\n";
print "Spec: ", $special::foo, "\n";
print "Spec: ", $special::bar, "\n";
print "Spec: ", $foofoo, "\n";