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