open (FILE,">temp") or $x=1, warn "error message"
In reply to Re: Question about warn statement by roju in thread Question about warn statement by Anonymous Monk