Select Code to Download

redo if eof;

my ($i,$cnt);
while (<$inhandle>) {
...
    last if $cnt;
    $cnt++, redo if eof;
}

for (<$infile>,'AFTERFILE') { ... }