redo if eof;

##</code><code>##

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

##</code><code>##

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