You're right but (as you mentioned) the fact that $x is undefined may not be a problem at all.

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