5 use Email::Simple::Creator;
10 my $email = Email::Simple->create(
12 From => 'casey@geeknest.com',
13 To => 'drain@example.com',
14 Subject => 'Message in a bottle',
15 'Message-ID' => 'helloworld',
17 body => 'hello there!'
20 my $e = Email::Archive->new({dsn => 'dbi:SQLite:dbname=test.db'});
21 print "sending @{[$email->as_string]}\n";
24 my $found = $e->retrieve('helloworld');
25 print $found->as_string;