my $result = eval { close $fh };
unless ($result) {
  print "Got an error: $@\n";
}