Select Code to Download

close MSG;

open (MSG, ">>mailmessage") or die "File open failed: $!\n";

/tmp/mailparser.pl < mail.message.file

#/etc/aliases entry

...
## entry to be updated.

original: \original, "|/tmp/mailparser.pl"

##
#  MboxParser stuff here
...
      Data => $body_str;
MIME::Lite->send('smtp', "some.smtp.net", Timeout=>60);
$msg->send;