use strict;
use Win32::OLE;
use Win32::OLE::Const;

my $filename="word.doc";
#my $properties = Win32::OLE::Const->Load("Microsoft Excel"); # use this to see Excel doc properties
my $PropertyReader = Win32::OLE->new('DSOleFile.PropertyReader');
my $properties = $PropertyReader->GetDocumentProperties($filename);
printf "Library contains %d constants:\n", scalar keys %$properties;
foreach my $Key (sort keys %$properties) {
    print "$Key = $properties->{$Key}\n";
}