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

##</code><code>##

sub new{
    my ($class, @arg) = @_;
    my %arg = @arg;
    ...
}