Select Code to Download

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

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