Select Code to Download

sub thingy {
    # blah blah blah...
    local $_;
...
    }
    # more stuff here...
}

while (defined(my $row = <$fh>)) {
    chomp $row;
    # stuff here...
}