use strict; use English; use warnings;

use Mail::Box::Mbox;

my $foldername = 'test.mbox';
my $folder = Mail::Box::Mbox->create($foldername, access => 'rw');

my $msg;
my $n =4;

while ($n--) {
	
my $msg = Mail::Box::Message->build(From => 'me', data => "Message $n \n only two\nlines\n---\n");
		$msg->print;
$folder->addMessage( $msg );
}	

##</code><code>##

Can't use string ("Mail::Box::Mbox") as a HASH ref while "strict refs" in use at I:/Perl/site/lib/Mail/Box.pm line 816.