Select Code to Download

use strict;
our $foo = 123;
...
our $foo;
our $foo;
print(our $foo, "\n");

use strict "refs";
$foo = 123;      # ok
print "$foo\n";  # still ok