my $foo = "blah";
print $main::foo; ## whoops, not the same variable