my $foo = "bar";
package Baz;
print "$foo\n"; # prints bar