Select Code to Download

use MIME::LITE;
use strict;
...

        }
     }

# Send the Message

            MIME::Lite->send('sendmail',"/usr/sbin/sendmail -t -oi -oe
+m")
                or warn "Error sending email :\n$!\n";