$perl abovecode.pl < mail.txt