open (FILE, '>', "temp") or do { warn "error message"; $x=1 };