Adding

MIME::Tools->debugging(1);
MIME::Tools->quiet(0);
[download]

didn't have any effect: no error messages about the Mime tools.

However, changing

open(MAIL, "|/usr/bin/mail");
[download]

to

open(MAIL, "|/usr/sbin/sendmail -t")
[download]

results in the message being sent.