First of all, IIRC, sendmail does not support separating adresses with ";", you need to use ",".

Also "It just does not work" is not a good description of what's going wrong, so I can't really help you there. See also How do I post a question effectively?. Especially helpful would be: what does open(MAIL,"|/usr/sbin/sendmail -t") or fatal("..."); print to stderr?

See also http://perldoc.perl.org/perlfaq9.html#How-do-I-send-mail%3f which describes how to send mail from perl using sendmail.

Also also: there's no need to use the cumbersome array assignment to create the message. You can use "here docs" instead, for example:

my $msg = <<"ENDMSG";
To: $email
From: $from
Bcc: support\@mysite.com
MIME-Version: 1.0
Content-Type: text/html; charset=us-ascii
Subject: $subject

$theMessage
ENDMSG
# continue here and print $msg to sendmail
[download]