eval {
    open (SENDMAIL, '|/usr/sbin/sendmail -oi -t');
    print SENDMAIL <<"EOF";
From:<$MAIL{'FROM'}>
To:<$MAIL{'TO'}>
Subject: $MAIL{'SUBJECT'}

$MAIL{'BODY'}
          
EOF
    close (SENDMAIL);
};

if($@) { 
   print "Something went wrong!\n";
}