use File::Temp qw/ tempfile tempdir /;

         $dir = tempdir( CLEANUP => 1 );