C:\>perl -wle "system('set')"
ALLUSERSPROFILE=C:\Documents and Settings\All Users