12:25 >set TEMP=.

12:25 >set TEMP
TEMP=.

12:26 >perl -T -MFile::Temp=tempfile -wE "say $ENV{TEMP}; tempfile();"
.
Error in tempfile() using template \XXXXXXXXXX: Could not create temp file \JFwYM0_6Kz: Permission denied at -e line 1.

12:26 >perl -T -MFile::Temp=tempfile -wE "$ENV{TEMP} = '.'; say $ENV{TEMP}; tempfile();"
.

12:26 >