E:\>perl -le"$_=qq,$ENV{WINDIR}/temp,; print $_, q, => ,, -e $_;"
E:\WINNT/temp => 1