Select Code to Download

sub readZip {
   local $_;
   open local *FH, '/dev/null';
   while (<FH>) { print "Got something!\n"; }
}