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

##</code><code>##

perl -le'opendir(D,".")?print((map{$i+=!-f}readdir(D))-$i):die'