my $msg = Mail::MboxParser::Mail->new([<STDIN>],[<STDIN>]);

##</code><code>##

my %mail = ( To      =>   $msg->from->{email},
             From    =>  "$listname-admin\@myhost.com",
                          Subject =>  'User Subscribed 
                          Message =>  "The email address $email, has been subscribed to the $listname mailing list\n"
           );