No, he wants to do it in perl:

perl -e 'print `sort file | uniq -c`'
[download]