or download this
perl -MWin32 -e "my @ds=grep {/CSIDL_/} @{ [keys %Win32::] }; " ^
-e "do {printf qq/%31s => %s\n/, $_, Win32::GetFolderPath(&{$Win32::{$
+_}}) }" ^
-e "for map { $_->[0] } sort {$a->[1] <=> $b->[1]} map { [$_,&{$Win32:
+:{$_}}] } @ds"