perl -e "opendir my $dir,'.' or die; while ($_ = readdir $dir){@stat = stat $_; print qq([$_]@stat\n)}"