in reply to Question about warn statement

In the spirit of TMTOWTDI, and because of my love for the comma operator,

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

In Section Seekers of Perl Wisdom