package Foo;
use strict;
$::foo = "yayayaya";
                                                                                
print $main::foo;