#============ sub DESTROY { #============ my($self) = @_; _CloseHandle($self->{'handle'}); }