use POSIX;
  POSIX::close($fd) or die "close failed: $!";