my $msg = MIME::Lite->new(
               
               
      From    => "$mailsender",
               
               
      To      => "$user_email",
               
               
      Subject => "$subject",
               
               
      Type    => 'multipart/mixed',
               
               
   );
        $msg->attach(    Type => 'text/plain; charset="utf-8"',
               
         Encoding => 'quoted-printable',
               
         Data => "$text_mail_message");        
        
        $msg->attach(    Type => 'text/html; charset="utf-8"',
               
         Encoding => 'quoted-printable',
               
         Data => "$html_mail_message");
        
        $msg->attach(    Type => 'image/gif',
               
         Encoding => 'base64',
               
         Path => "$dir_pic"
               
     );
               
 
               
 
        MIME::Lite->send('sendmail', "/usr/sbin/sendmail -t -oi");
        $msg->send;