(Perl) Add Content-Length Header to a MIME Message

The AddContentLength method automatically computes the length of the MIME content and adds a Content-Length header with the correct number of bytes.

 Chilkat Perl Module Downloads for Windows, Linux, and MAC OS X

use chilkat();

$mime = new chilkat::CkMime();

$success = $mime->UnlockComponent("Anything for 30-day trial.");
if ($success == 0) {
    print $mime->lastErrorText() . "\r\n";
    exit;
}

#  Set the MIME body:
$mime->SetBody("This is a test");

#  The complete size (in bytes) of the contents is computed,
#  even if the MIME is multipart, and the Content-Length header
#  is added.
$mime->AddContentLength();

#  Display the MIME:
print $mime->getMime() . "\r\n";