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";
}

##</code><code>##

sub open_logfile {
  my $filename = shift;
  open FH, '> ' . $filename or die "Can't write to $filename: $!\n";
  select FH;
}