$email=MIME::Lite->new(Type=>'multipart/signed');<br>
$email->attr('content-type.protocol'=>'application/pgp-signature');
$email->attr('content-type.micalg'=>'PGP-SHA512');
$email->attach('Content-Type'=>'text/plain', Encoding=>'quoted-printable', Data=>$body);
$email->attach(Type=>'application/pgp-signature', Filename=>'signature.asc', Disposition=>'attachment',
 Encoding=>'7bit',Data=>$signed);
$email->add('To'=>$to);
$email->add('From'=>$from);
$email->add('From'=>$subject);