open (MESSAGE, "< $ARGV[0]") || die "Couldn't open email $ARGV[0]\n";
       undef $/;
$raw_email = <>;
close MESSAGE;