Select Code to Download

sub DESTROY {
  my $self = shift ;
...
    close $self->{out} ;
  }
}

(in cleanup) Can't locate object method "opened" via package "IO::Hand
+le" at modules/MyTH.pm line 29.