# print out constants loaded for Microsoft Office 
use strict;
use warnings;
use Win32::OLE::Const "Microsoft Office .* Object Library";
my $names = Win32::OLE::Const->Load("Microsoft Office .* Object Library");
printf "Office type library contains %d constants:\n", scalar keys %$names;
foreach my $Key (sort keys %$names) {
    print "$Key = $names->{$Key}\n";
}