> perl
package TST;
BEGIN { $a=42 }
package main;
print $TST::a;
__END__
42