find count of files in each directory

using find it is easy to find all files in directories recursively and print the total count of files.But, i want files to be listed in each directory.This can be done in perl one liner.

perl -e '
sub z {
my(@l)=glob(($p=$_[0])."/*");
my(@x,$c);
foreach $f(@l){($c++) if -f $f;
push(@x,$f) if -d $f }
print"$p: $c\n" if $c >0;
foreach $f (@x){z($f)}}z(".");'