sub my_print {
  my($txt)= @_;
  print $txt;
  return unless $log;
  print $log $txt;
}