my $i = 1;
while ((my $line = <INHANDLE>) || $i--) {}

##</code><code>##

while (my $line = <INHANDLE>) {
} continue {
	dosomething() if eof(INHANDLE);
}