sub log {
  my $self = shift;
  my $timesig = localtime->strftime("%y%m%d%H%M%S");
  my $fh = $self->{fh};
  foreach my $msg (@_) {
#    print $self->{fh} encode('utf8', $timesig . ': ' . $msg . "\n");
    print $fh encode('utf8', $timesig . ': ' . $msg . "\n");
  }
}

1;