sub log_it
{
  my $fh = shift;
  my $message = shift;
  my $timestamp = time;
  print $fh $timestamp . ": " . $message . "\n";
}