Select Code to Download

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

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