$SIG{HUP}  = sub {
  if (defined $log)
  {
    undef $log;
  }

  $log = IO::File->new(LOGFILE, 'w');
  $log->print(strftime("%m/%d/%Y %H:%M:%S", localtime),": Caught HUP, reset logfile\n");
  $log->print("pid = $$\n");
  $log->autoflush(1);
};