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