Select Code to Download

#!/usr/bin/perl -l
{
...
# *main::$foo still exists, because globals just don't die.

# And they lived happily ev^U

{
    open my $foo, '>', $$ or die $!;
...
        print $foo "Test";                 # Test > $$
    }
}