#! perl -slw
use strict;
use Win32::File ();

while( my $file = glob $ARGV[0] ) {
    Win32::File::GetAttributes( $file, my $attrs );
    printf "%1s%1s%1s%1s%1s%1s%1s%1s%1s %s\n",
        ( $attrs & Win32::File::ARCHIVE()   ) ? 'A' : ' ',
        ( $attrs & Win32::File::COMPRESSED()) ? 'C' : ' ',
        ( $attrs & Win32::File::DIRECTORY() ) ? 'D' : ' ',
        ( $attrs & Win32::File::HIDDEN()    ) ? 'H' : ' ',
        ( $attrs & Win32::File::NORMAL()    ) ? 'N' : ' ',
        ( $attrs & Win32::File::OFFLINE()   ) ? 'O' : ' ',
        ( $attrs & Win32::File::READONLY()  ) ? 'R' : ' ',
        ( $attrs & Win32::File::SYSTEM()    ) ? 'S' : ' ',
        ( $attrs & Win32::File::TEMPORARY() ) ? 'T' : ' ',
        $file;
}