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

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

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 "\n";
foreach $i (sort keys %special::)
  { print "special: $i\n" }
foreach $i (sort keys %main::)
  { print "main:    $i\n" }