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
-------------------------------------------