#!/usr/bin/perl -l
for$f(@ARGV){
$_=sprintf"%9b",($m=(lstat$f)[2])&511;
y/01/\0\xff/;
$_&=rwxrwxrwx;
y/\0/-/;
print qw(? c d b - l s)[$m>>13],"$_ $f"
}