perl -e'opendir(D,shift)?print((map{$i+=!-f}readdir(D))-$i):die' your_dir_here