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