Select Code to Download

        $message = "From: blah\nTo: blah\nSubject: blah\n\nmessage\n";
        open (SENDMAIL,"|sendmail -i);
        print SENDMAIL $message;
        close(SENDMAIL);

        use Net::SMTP;

...
        $smtp->dataend();

        $smtp->quit;