sub logger {
  # set up a file handle for a log file.
  open LOG, ">>$log_file" or die("Could not open log file for appending.");
  select LOG;
  $|=1;
  select STDERR;
  print LOG "weldd $$: ", scalar(localtime), " @_\n";
  close LOG;
}