$boundary = '--=_'.substr(pack('u', ('E-Mail'.'Mieser Peter')), 0, 24);

open(MAIL, "| /usr/sbin/sendmail -n -t -oi") or die "Oh hoppla!";
print MAIL <<EOA;
From: $from
To: $to
Cc: $bc
Bcc: $bcc
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
EOA
while ( read($file, $container, 1024) ) {
binmode($file);
local $/;
$encoded_file = MIME::Base64::encode($container);
}
print MAIL <<EOB;
Content-Type: image/jpeg; name="$file"
Content-Transfer-Encoding: base64
Content-Disposition: attachment; filename="$file"

$encoded_file

--$boundary
EOB
close(MAIL);