use strict;
use warnings;
use File::Temp 'tempdir';
my $x = tempdir();
File::Temp::cleanup();
if( -d $x ){ print "still there ($x) ...\n" }