$body="Content-Disposition: inline\n".
"Content-Transfer-Encoding: quoted-printable\n".
"Content-Type: text/plain\n\n".encode_qp($body);

##</code><code>##

$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);

##</code><code>##

MIME-Version: 1.0
Content-Transfer-Encoding: binary
Content-Type: multipart/signed; boundary="_----------=_1237214418850250"; micalg="PGP-SHA512"; protocol="application/pgp-signature"
X-Mailer: MIME::Lite 3.024 (F2.77; T1.27; A2.04; B3.07; Q3.07)
Date: Mon, 16 Mar 2009 09:40:18 -0500
To: vvelox@vvelox.net
Subject: subject
From: v.velox@vvelox.net
Message-Id: <0.564867957585143.1237214418.ZConf::Mail@vixen42>

This is a multi-part message in MIME format.

--_----------=_1237214418850250
Content-Disposition: inline
Content-Transfer-Encoding: quoted-printable
Content-Type: text/plain

body

--_----------=_1237214418850250
Content-Disposition: attachment; filename="signature.asc"
Content-Transfer-Encoding: 7bit
Content-Type: application/pgp-signature; name="signature.asc"

-----BEGIN PGP SIGNATURE-----
Version: GnuPG v2.0.11 (FreeBSD)

iEYEABEKAAYFAkm+ZNIACgkQqrJJy0yxYQAu6ACfZLEAAiudAERIQ3seeuXBrhNq
0xUAniGRyHoxEonSGNjtDUJtdTs+1p0R
=C1pk
-----END PGP SIGNATURE-----

--_----------=_1237214418850250--