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