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