if ($in{'type'} eq "multipart") {
                 print MAIL "MIME-Version: 1.0\n";
                 print MAIL "Content-Type: multipart/mixed; boundary=\"----=_Next_Part_$boundary\"\n";
         }
         if ($in{'type'} eq "multipart") {
                 print MAIL "------=_Next_Part_$boundary\n";
                 print MAIL "Content-type: text/plain;\n";
                 print MAIL "charset=us-ascii\n";
                 print MAIL "Content-Transfer-Encoding: quoted-printable\n\n";
         }
        if ($in{'type'} eq "text" || $in{'type'} eq "multipart") {
                 print MAIL "$text_message\n\n";
                         if ($in{'remove_notice'} eq "1") {
                                 print MAIL "---------------------------------------------------------------------\n";
                                 print MAIL "Removal notice";
                                 print MAIL "$in{'subscribeUrl'}?$unsubscribe&$in{'list'}&member\n";
                                 print MAIL "---------------------------------------------------------------------\n\n";
                         }
         }
         if ($in{'type'} eq "multipart") {
                 print MAIL "------=_Next_Part_$boundary\n";
                 print MAIL "Content-type: text/html;\n";
                 print MAIL "charset=\"base64\"\n";
                 print MAIL "Content-Transfer-Encoding: quoted-printable\n\n";
         }
         if ($in{'type'} eq "multipart" || $in{'type'} eq "html") {
                 print MAIL "$html_message\n\n";
                         if ($in{'remove_notice'} eq "1") {
                                 print MAIL "<BR><BR>";
                                 print MAIL "---------------------------------------------------------------------<br>";
                                 print MAIL "HTML removaql notice";
                                 print MAIL "<a href=\"$in{'subscribeUrl'}?$unsubscribe&$in{'list'}&member\">$in{'subscribeUrl'}?$unsubscribe&$in{'list'}&member</a><br>";
                                 print MAIL "---------------------------------------------------------------------<br><br>";
                         }
         }