unless( open( ARCHIVE, ">>blah" ) ) {
  warn "Aiieeeee, can't append to blah!\n";
  $no_archive = 1;
  update_fleezle( -42 );

  open( ARCHIVE, ">&STDOUT" ) or die "Can't dup STDOUT: $!\n";
}