use File::Temp qw( );

my $tmpdir = File::Temp->newdir( CLEANUP => 0 );

...

$tmpdir->unlink_on_destroy( 1 ) if $success;