Select Code to Download

#!/usr/bin/perl -w

...
my $msg = Mail::Message->read(\*STDIN);

print $msg->body;

Yes

On 12/5/12, xxxxxxxxxxxx@gundluth.org <xxxxxxxxxxxx@gundluth.org> wrot
+e:
> Test

--_000_4AADDBF32F49F74ABBE5DFCBCC0B0193121F0F73ONEXMB06xxxxxxx_
Content-Type: text/plain; charset="us-ascii"
...
</html>

--_000_4AADDBF32F49F74ABBE5DFCBCC0B0193121F0F73ONEXMB06xxxxxxx_--