use strict;
$foo::bar=1;
package foo;
$bar=1;