Shell Programming and Scripting

        my $emailrep = MIME::Lite->new(
                To => $EMAIL_RCPT,
                Subject => $SUBJECT,
                Type => 'multipart/mixed'
        ) || &errordie("-emailreport- Cannot create new email with MIME::Lite: $!");

        $emailrep->attach (
                Type => 'TEXT',
                Data => $mymessage
        ) || &errordie("-emailreport- Cannot create new email with MIME::Lite: $!");

        $emailrep->attach (
                Path => $OUTDIR,
                Filename => $EXCELREPORT,
                Type => 'application/vnd.ms-excel',
                Dispostion => 'attachment'
        ) || &errordie("-emailreport- Cannot create email with attachment: $!");

        $emailrep->send("sendmail");