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