use IO::File;
open LOG, ">>log.out" or die "opening log.out: $!\n";
LOG->autoflush(1);
printf LOG "PROC $$: %d %s run starts %s\n",
   time, __FILE__, scalar(localtime);