This is dangerous:

open(FILE,"<temp") || (($x = 1) && warn "error message1: $x");
open(FILE,"<temp") || (($x = 0) && warn "error message2: $x");
__END__

error message1: 1 at test-a.pl line 1.
[download]