package Foo;
use strict;
use vars qw/$BAR/;
$BAR = "baz";

package main;
print $Foo::BAR;