Select Code to Download

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