# slurp the email from STDIN
my $raw; { local $/; $raw = <STDIN>; }