#! perl -slw
use strict;
use Win32::File qw[ GetAttributes ];

while( my $file = glob $ARGV[0] ) {
    GetAttributes( $file, my $attrs );
    printf "%1s%1s%1s%1s%1s%1s%1s%1s%1s %s\n",
        ( $attrs & ARCHIVE   ) ? 'A' : ' ',
        ( $attrs & COMPRESSED) ? 'C' : ' ',
        ( $attrs & DIRECTORY ) ? 'D' : ' ',
        ( $attrs & HIDDEN    ) ? 'H' : ' ',
        ( $attrs & NORMAL    ) ? 'N' : ' ',
        ( $attrs & OFFLINE   ) ? 'O' : ' ',
        ( $attrs & READONLY  ) ? 'R' : ' ',
        ( $attrs & SYSTEM    ) ? 'S' : ' ',
        ( $attrs & TEMPORARY ) ? 'T' : ' ',
        $file;
}
__END__
C:\test>junk4 *.pl
Bareword "ARCHIVE" not allowed while "strict subs" in use at C:\test\junk4.pl line 7.
Bareword "COMPRESSED" not allowed while "strict subs" in use at C:\test\junk4.pl line 7.
Bareword "DIRECTORY" not allowed while "strict subs" in use at C:\test\junk4.pl line 7.
Bareword "HIDDEN" not allowed while "strict subs" in use at C:\test\junk4.pl line 7.
Bareword "NORMAL" not allowed while "strict subs" in use at C:\test\junk4.pl line 7.
Bareword "OFFLINE" not allowed while "strict subs" in use at C:\test\junk4.pl line 7.
Bareword "READONLY" not allowed while "strict subs" in use at C:\test\junk4.pl line 7.
Bareword "SYSTEM" not allowed while "strict subs" in use at C:\test\junk4.pl line 7.
Bareword "TEMPORARY" not allowed while "strict subs" in use at C:\test\junk4.pl line 7.
Execution of C:\test\junk4.pl aborted due to compilation errors.