opendir D,'.' or die "opendir: $!\n";
print((map{$i+=!-f}readdir(D))-$i);