G:\>type x.pl
use Win32::OLE;
my $shell  = Win32::OLE->new("Shell.Application") or die;
my $folder = $shell->NameSpace("G:\\") or die;
my $file   = $folder->ParseName("X.doc") or die;
for my $i (0..50){
        my $attrib = $folder->GetDetailsOf($file, $i);
        print "$i) $_ >> $attrib\n" if ! $attrib eq '';
}
print "-------------------------------------------\n";


G:\>x.pl
0)  >> X.doc
1)  >> 267 KB
2)  >> Microsoft Word Document
3)  >> 10/31/2009 8:13 AM
4)  >> 10/31/2009 8:12 AM
5)  >> 10/31/2009 12:00 AM
6)  >> A
7)  >> Online
8)  >> Everyone
9)  >> Scott R. Keszler
10)  >> Test Document
13)  >> 8
31)  >> 8/3/2009 1:13 PM
-------------------------------------------

##</code><code>##

G:\>ppm install ole-storage
G:\>ppm install unicode-map
G:\>ppm install startup
G:\>which ldat
C:\Perl64\site\bin/ldat

G:\>ldat X.doc
Processing "X.doc"
# Microsoft Office Word Document (Word.Document.8, 31.10.2009, 12:13:05, rev 10 )
  Title: Test Document
  Authress: Scott R. Keszler
  Organization: SRK Consulting
  Application: Microsoft Office Word
  Template: Normal.dot
  Created: 03.08.2009, 17:13:00
  Last saved: 31.10.2009, 12:13:00
Done.