my $PropertyReader = Win32::OLE->new('DSOleFile.PropertyReader', 'Quit');
my $properties = $PropertyReader->GetDocumentProperties($filename);
print "$filename DateCreated $properties->{'datecreated'} \n";
print "$filename title $properties->{'title'} \n";