perl -e 'print `sort file | uniq -c`'