Select Code to Download

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

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