perl -MWin32 -le "my @ds=grep {/^CSIDL_/ && /\U$ARGV[0]/} @{ [keys %Win32::] }; do {printf qq/%31s => %s\n/, substr($_,6), Win32::GetFolderPath(&{$Win32::{$_}}) } for @ds" profile