Select Code to Download

my $found;
while (<$fh>) {
...
   }
}
print while <$fh>;

local *_;
my $found;
...
   }
}
print while defined($_ = $fh->getline());