sub SetLog {
  my $glob = shift;
  *LogFile = *$glob;
}