use File::Path qw( remove_tree );
use File::Temp qw( tempdir );

my $tmpdir = tempdir( CLEANUP => 0 );

...

remove_tree( $tmpdir ) if $success;

##</code><code>##

$ tt() {
   perl -e'
      use v5.14;
      use File::Path qw( remove_tree );
      use File::Temp qw( tempdir );
      my $tmpdir = tempdir( CLEANUP => 0 );
      say $tmpdir;
      my $success = $ARGV[0];
      remove_tree( $tmpdir ) if $success;
   ' -- "$@"
}

$ t() {
   local tmpdir=$( tt "$@" )
   if [ -e "$tmpdir" ]; then
      echo Preserved
      rm -r -- "$tmpdir"
   else
      echo Cleaned
   fi
}

$ t 0
Preserved

$ t 1
Cleaned