use strict; use warnings; use Data::Dumper; warn sprintf "In test, at start (1): TMPDIR '%s'\n", ! exists $ENV{TMPDIR} ? '' : ! defined $ENV{TMPDIR} ? '' : $ENV{TMPDIR}; print Dumper(@ENV{qw(TMPDIR TEMP TMP)});