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

##</code><code>##

eval 'my $foo = 1';
print $foo; ## whoops, outside of $foo's scope