open(FILE,">temp") or warn "error message" and $x = 1;