#!perl -T

use strict; 
use warnings;

use File::Temp ();
my $tempdir = File::Temp->newdir;
print "Tempdir is $tempdir";

=pod

generates something like:
Tempdir is \2n_ZnUbENO

but should be something like:
Tempdir is C:\Users\MYNAM~1\AppData\Local\Temp\58nDhHDTcd

=cut