if( not $succ ) {
  print STDERR qq{Unable to append to '$file', using STDOUT: $!\n};
  $fh = \*STDOUT;
}