if (not open(FILE, ">temp")) {
     warn "error";
     $x = 1;
  }