Select Code to Download

while(<$fh>)

while(defined($_ = <$fh>))

    while(<$fh>){
        print;
    }

    local $_;
    while(<$fh>){
        print;
    }

    while(my $line = <$fh>){
        print $line;
    }