#!/usr/local/bin/perl
use strict;
use warnings;
use Mail::MboxParser;

my $mbox= \*STDIN;
my $mb = Mail::MboxParser->new($mbox);

for my $msg ($mb->get_messages) {
   my $to = $msg->header->{to};
   my $from = $msg->header->{from};
   my $cc = $msg->header->{cc} || " ",
   my $subject = $msg->header->{subject} || '<No Subject:>',
   my $body = $msg->body($msg->find_body,0);
   my $body_str = $body->as_string || '<No message text>';
   print "To: $to\n",
         "From: $from\n",
         "Cc: $cc\n",
         "Subject: $subject\n",
         "Message Text: $body_str\n";
   print "~" x 77, "\n\n";
}