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

##</code><code>##

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

##</code><code>##

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