package Foo;
$var   = "hello\n";
$::var = "bye\n";

print $var;        # hello
print $Foo::var;   # hello
print $::var;      # bye
print $main::var;  # bye

package main;
print $var;        # bye     !!
print $Foo::var;   # hello
print $::var;      # bye
print $main::var;  # bye