#!perl
use Win32::OLE;
use Win32::OLE::Const;
use Win32::OLE::Const 'Microsoft Office 14.0 Object Library';

# test
my $hr = Win32::OLE::Const->Load('Microsoft Office 14.0 Object Library');
foreach my $key (keys %$hr) {
  printf "$key = %s\n", $hr->{$key};
}