while (<>) {
  ...
}
# check $! which is probably from the last close


##</code><code>##

while (<>) {
  ...
  $! = undef;
}
if (defined($!)) {
  # $! contains error from last <c>close