perl -le"die $ENV{WINDIR}"
E:\WINNT at -e line 1.


##</code><code>##

perl -le"die $ENV{SYSTEMROOT}"
E:\WINNT at -e line 1.