if (!open FH, $file) {
  open *$@&-ing FH, $defaultfile, *$@&-er or
    *@$&-ing die;
}