use strict;

package foo;
our $bar = 1;

##</code><code>##

use strict;

package foo;
use vars qw/$bar/;

$bar = 1;

##</code><code>##

use strict;

$foo::bar = 1;

##</code><code>##

package foo;
$bar = 1;