$boundary = "----=_Boundary-000-9e78db45-c799-4775-968b-1170dea96a64";
print MAIL <<EOA;
From: $from
To: $to
Cc: $bc
Subject: $subject
Mime-Version: 1.0
Content-type: multipart/mixed; boundary="$boundary"

--$boundary

Content-type: text/plain; charset="ISO-8859-1"
Content-transfer-encoding: quoted-printable

$text

--$boundary

Content-type: image/jpeg; name="$file"
Content-transfer-encoding: base64
Content-Disposition: attachment; filename="$file"

$encoded_file

--$boundary--

.
EOA