Select Code to Download

use strict;

package foo;
our $bar = 1;

use strict;

...
use vars qw/$bar/;

$bar = 1;

use strict;

$foo::bar = 1;

package foo;
$bar = 1;