perl -MEmail::Folder -e'print $_,"\n" foreach sort map { $_->header("From")} Email::Folder->new("mail/london_pm")->messages()' | uniq -c | sort -n