Select Code to Download

my $analysis_file = shift;

...
        ...  # is the outer $_ clobbered here?
    }
}

open O, '>', 'foo';
print O "bar\n";
...
quux
wrdlbrmfd
$_ = ''