C:\perl -M'Win32::OLE::Const "Microsoft Word"'\
 -e 'print join("\n", grep { /^wd/ } keys %main::;