sub DESTROY {
     local $@;
     ... your cleanup code...
  }