Select Code to Download

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

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