lanx@nc10-ubuntu:~$ perl -MO=Deparse 
package TST;
our $var;
package main;

print $var
__END__
package TST;
our $var;
package main;
print $TST::var;