Shell Programming and Scripting

sub SendMail
{
    my (
         $Message ,
         $Subject ,
         $To,
         $CC
       ) = @_;
    my ($sec, $min, $hour, $mday, $mon, $year) = localtime(time) ;
    my $PgmName = "$hour:$min:$sec" ;
    Log( "\nRecepients To: << $To >>\n" ) ;
    Log( "\nRecepients CC: << $CC >>\n" ) ;
    open(SENDMAIL, "|/usr/lib/sendmail -oi -t")
        || die "Can't fork for sendmail: $!\n";
#Content-Transfer-Encoding: quoted-printable
    print SENDMAIL << "EOF";
From: $MAIL_FROM
Date: $PgmName
To: $To
CC: $CC
Subject: $Subject
Content-Type: text/html; charset="iso-8859-1"
$Message
EOF
close(SENDMAIL) || die "sendmail didn't close nicely";
   if( $? !=0  )
   {
      Log("System Mail Failed");
   }
   else
   {
      Log ("Mail Sent Successfully");
   }
}

#!/usr/bin/perl
 
use MIME::Lite;
use Email::Valid;
 
...
 
if (!Email::Valid->address($MAIL_FROM)) {
    Log("From email address << $MAIL_FROM >> is invalid\n") ;
    exit ;
}
 
... Other checks here ...
 
my $msg;
 
### Create the multipart "container" to be sent to recipient:
$msg = MIME::Lite->new(
    From      =>$MAIL_FROM,
    To        =>$TO_EMAIL,
    Subject   =>$EMAIL_SUBJECT,
    Type      =>'multipart/mixed'
        ) or die "Error creating multipart container: $!\n";
 
### Add the body part:
$msg->attach(
    Type     =>'TEXT',
    Data     =>$EMAIL_BODY."\n\n"
    ) or die "Error adding the text message part : $!\n";
 
### Add a pdf attachement:
$msg->attach(Type     => 'application/postscript',
    Path     => $TEMP_PDF_FILE,
    Filename => $ATTACH_NAME,
    Disposition => 'attachment'
    );
 
eval { $msg->send('smtp', "my.smtp.server.com", Timeout=>60); };
die "Error: $@" if ($@);
 
...