perl -e '++$c for glob "*";print $c'