Select Code to Download

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

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