use Mail::Message;

my $s = "Subject: hello\n\n1\n2\n";
my $msg1 = Mail::Message->read(\$s);

##</code><code>##

Can't use string ("Mail::Message") as a HASH ref while "strict refs" in use at 
usr/share/perl5/Mail/Message.pm line 853.

##</code><code>##

my $scalar = "Subject: hello world\n\nbody1\nbody2\n";
my $msg2 = Mail::Message->read(\$scalar);
ok(defined $msg2);
is(ref $msg2, 'Mail::Message');
ok(defined $msg2->head);
isa_ok($msg2->head, 'Mail::Message::Head');