Select Code to Download

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