Help for this page
$ENV{PATH}='/bin:/usr/bin:/usr/local/bin';
open(MAIL,"| /usr/bin/sendmail -t") || die "$!";