#!/usr/bin/perl

use warnings;
use strict;
use Mail::Message;
use Mail::Box::Manager;

my $fromline = <STDIN>;
my $inmsg = Mail::Message->read(\*STDIN, strip_status_fields => 0);

my $mgr = Mail::Box::Manager->new;

my $folder = $mgr->open(folder => "/tmp/aa", create => 1, access => 'rw')
   or die "error: $!\n";

$folder->addMessage($inmsg);

my $msg = $folder->message(0);

$msg->fromLine($fromline);

my $head = $msg->head;

my @to = $head->study("to");
