任意のディレクトリ配下にどのような拡張子のファイルがどれだけあるか集計する Perl ワンライナー

$ perl -MFile::Find -MFile::Basename -e 'find sub{$h{(fileparse($_,qw{\.[^\.]+$}))[2]}++ if -f},@ARGV;END{map{print "$_:$h{$_}\n"}keys %h}' .
.sh:27
.pl:3
.conf:9
.rman:1
.sql:9