Subclass File::Temp::Dir and override the DESTROY method. This is somewhat complicated by the fact that File::Temp::Dir doesn't have a traditional constructor.

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;
[download]

Then, stop using the tempdir function and use My::File::Temp::Dir->new instead.

Write your own, tiny class. Have your class's new() construct the File::Temp object. Have your DESTROY do the steps needed (File::Temp's DESTROY will automatically be called when you clear the File::Temp object attribute from your your object or after your object gets cleared out). Your object could just be a blessed scalar reference to the File::Temp object, for example. Your new() can also do post-creation steps, if needed.

Hello. Maybe...

perldoc -tf chown
perldoc -tf chmod
[download]

Right. But I need to be able to do chown/chmod when the tempdir DESTROY is method is destroyed. The issue is that under the tempdir, I have files that are undeletable by the current user (they were created earlier in the script and are owned by a user other then the current user). So, when my script exits, either normally or asynchronously via an error path/interrupt, the files under the tempdir do not get cleaned up. What I would like is a hook whereby I have the opportunity to reset ownership on the files prior to when the tempdir DESTROY method tries to unlink the files.