wahrscheinlich geht irgendwas schief, aber weil du keine fehler abfängst, bekommst du es nicht mit. ersetz mal
open (MAIL,"|$sendmail");
durch
open (MAIL,"|$sendmail") || die "Konnte sendmail ($sendmail) nicht gepiped oeffnen: $!";
und guck dir die ausgabe an...