my $wd = Win32::OLE::Const->Load("Microsoft Outlook");
foreach my $key (keys %$wd) {
    printf "$key = %s\n", $wd->{$key};
}