use strict;

package foo;
use vars qw/$bar/;

$bar = 1;
# $bar has only one meaning, access $foo::bar
print $bar;

package baz;
# $bar has only one meaning, access $baz::bar
print $bar; #error