$ perl -we'package Foo; our $foo = 1; package main; $main::foo = 2;
print "\$foo: $foo \$::foo $::foo\n"'
$foo: 1 $::foo 2