sub open_logfile {
  my $filename = shift;
  open STDOUTBACK, '>&STDOUT' or die "Can't dup STDOUT\n";
  open STDOUT, '> ' . $filename or die "can't write to $filename: $!\n";
}