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