my $block = sub { ... };
&$block while <INHANDLE>;
&$block foreach undef;