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