##
open (OF, ">body.txt");
print OF $body;
close (OF);
##
##
$msg = MIME::Lite->new(
From => $from,
To => $to,
Subject => $subject,
Type => 'text/html',
Data => qq{ $body }
);
MIME::Lite->send('smtp', 'smtpsvr.net, Timeout=>240);
$msg->send();
##
##
s/\cM/\n/
s/\r\n/\n/