package My::File::Temp::Dir;
use File::Temp ();
our @ISA = qw(File::Temp::Dir);
sub new {
  my $class = shift;
  my $self  = File::Temp->newdir(@_);
  bless $self, $class;
}
sub DESTROY {
  my $tempdir = shift;
  ...;  # do stuff
  $tempdir->SUPER::DESTROY(@_);
}
1;