#!/usr/bin/perl
use lib '..';

use strict;
use warnings;
use Mail::Message;

open(FILE, "message.txt") or die "Unable to open file for reading: $!\n";

my $text;
{
   local $/;
   $text = <FILE>;
}
my $fromline = $text =~ s/\AFrom.*?\n// ? $& : "\n";
my $message = Mail::Message->read(\$text);

print "FROM=$fromline";
$message->printStructure;

$message->head->print;
