my $msg = Mail::MboxParser::Mail->new([<STDIN>],[<STDIN>]);

##</code><code>##

my $msgtext;
{ local $/; $msgtext = <STDIN> }
my ($header, $body) = split /\n\r?\n/, $msgtext, 2;
my $msg = Mail::MboxParser::Mail->new($header, $body);

##</code><code>##

my @headerlines;
while (<STDIN>) {
  last if /^\r?\n/;
  push @headerlines, $_;
}

my $msg = Mail::MboxParser::Mail->new(\@headerlines, "");

##</code><code>##

my $msg = Mail::MboxParser::Mail->new(\@headerlines, [<STDIN>]);