I know 'unless' is the right *perl* way to do that, but I've never quite gotten used to using 'unless'. I prefer to use 'if not' in place of 'unless' - it just makes more sense to me:

  if (not open(FILE, ">temp")) {
     warn "error";
     $x = 1;
  }
[download]

HTH.