sub DESTROY { $_[0]->{'fh'}->close; }