sub DESTROY {
   my ($self, @args) = @_;
   $self->print("End Logging");
   undef $self->{'_fh'};
   return 1;
}