$msg = MIME::Lite->new(
     To      =>$form_data{'email'},
     From    =>$email_of_admin,
     Subject =>$email_subject,
     Type    =>'multipart/alternative'
     );
			 
$msg->attach(Type => 'text/plain',
     Data    => $email_body
     );

$msg->attach(Type => 'text/html',
     Encoding => 'quoted-printable',
     Data => $email_html
     );
$msg->send;