Perl sendMail as html mail:

$ContentType = 'text/html; charset="iso-8859-1"';

sub sendMail(){
use Mail::Sendmail;
if ($_[3]) {
$fromWho = $_[3];
} else {
$fromWho = &getWhichWebForm;
}
#$mail{Smtp} = 'ibismtp.ibi.com';

#print "$_[0] here";exit();
open (DATAF,"$_[0]" ) || die " ****Can't open file $_[0]: $! \n";
read( DATAF, $fullmail, 5000 );
close( DATAF );
%mail = ( To => $_[1],
Cc => "$ccmail",
From => "$fromWho",
'Content-Type' => "$ContentType",
Subject => $_[2],
Message => "$fullmail"
);

$catchError = sendmail(%mail);
if ($catchError == 0){

}

$logPath = "D:\\WWW-Root\\www-esp\\Data\\sendMail\\";
$logFileName = "$mon" . '_' . "$mday". '_' . "$year" . '.log';
$logFullName = $logPath . $logFileName;
#print "$logFileName";exit();
open(LOGF, ">>$logFullName") || die "died here $logFile: $!\n";
print LOGF "\n\n###LOG###\n" . $identInfo . $Mail::Sendmail::log;
print LOGF "\n###ERROR###\n" . $Mail::Sendmail::error;
close (LOGF);
return 1;
}#sendMail