use strict;
use warnings;

use vars qw($foo $bar);
$foo = 'I am main-foo';
$bar = 'I am main-bar';

package special;
# ab hier im Package 'special'
use vars qw($foo $bar);
$foo = 'I am special-foo';
$bar = 'I am special-bar';

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