sudo -u oper perl -I./blib/arch -we 'use FatConst; my $d 
= $ARGV[0]; opendir my $D, $d or die; while (my $b = readdir $D) { my $n = $d . "/" . $b; my $err = !defined(my $a = fat_get_attr($n)); printf "%8s  %s\n", ($err ? "E" : fat_format_attr($a)), $n; }' /mnt/s0