Help for this page
#!/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 > $$ } }