Select Code to Download

{
    my $line = <IN>;
...
    }
redo unless eof(IN);    
}

my @in = <IN>
{
...
    }
redo while (@in);    
}