my $x;
open (FILE, ">temp") || do {
   warn "error message";
   $x = 1;
};
if ($x) {
   # so something
}