use strict;

package foo;
use vars qw/$bar/;

$bar = 1;