>perl -le "use strict; use Env qw( $WINDIR ); print $WINDIR;"
E:\WINNT