package SomePackage; my $foo = "bar\n"; package main; print $foo; # prints 'bar'