{ my $fh;
  sub init_print_log { $fh = shift;}
  sub print_log { print $fh scalar localtime,@_;}
  sub print_log_altfile { local $fh = shift; print_log(@_);}
}