Script for analyze used disk space per file type

Source oneliner code (bash, perl): http://paste.org.ru/?cyndbk

Sample output for /usr/share folder on debian:

mo 37 %
gz 19 %
other 7 %
txt 5 %
pm 3 %
vim 3 %
pod 3 %