my $directory = $ARGV[0] || die "$pname requires directory as first argument\n"; 

find(\&main2, $directory);

sub main2{
	if(-f $File::Find::name){
		if(extention($File::Find::name) eq '.pdf'){
			#print "File: $_ Extention: " . extention($_) . "\n";
			my $shell  = Win32::OLE->new("Shell.Application") or die;
			my $folder = $shell->NameSpace("$File::Find::dir") or die;
			my $file   = $folder->ParseName("$_") or die;
			for my $i (0..50){
				my $attrib = $folder->GetDetailsOf($file, $i);
				print "$i) $_ >> $attrib\n" if ! $attrib eq '';
			}
			print "-------------------------------------------\n";
		}
	}
}