$smtp->datasend('Content-Type: multipart/mixed; boundary="--*B*--"\n\n');

##</code><code>##

$smtp->datasend(qq{Content-Type: multipart/mixed; boundary="--*B*--"\n\n});