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