$dbh->{LongReadLen} = 256 * 1024; ($body) = $dbh->selectrow_array("select content from $dtab where name = '$name'"); $body =~ s/\r/\n/g; #### 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/