$ perl -Te "$f=$ENV{TEMP}.q{/junk}; open my($fh), q{>}, $f; "
Insecure dependency in open while running with -T switch at -e line 1.