use strict;
use Win32::AdminMisc;

for (glob($ENV{SystemRoot}.'/system32/c*.dll')) {
    print "$_ --";
    my %attr;
    Win32::AdminMisc::GetFileInfo($_, \%attr);
    print join(' ',keys %attr), "\n\n";
}