Get Size of Download using HTTP HEAD

Get the size of a download using an HTTP HEAD request.

Chilkat Module for Perl 5.8.*

Chilkat Module for Perl 5.10.*

use chilkat;

$http = new chilkat::CkHttp();

#  Any string unlocks the component for the 1st 30-days.
$success = $http->UnlockComponent("Anything for 30-day trial.");
if ($success != 1) {
    print $http->lastErrorText() . "\n";
    exit;
}

$resp = $http->GetHead("http://www.chilkatsoft.com/download/ChilkatDotNet2.msi");
if ($resp eq null ) {
    print $http->lastErrorText() . "\n";
}
else {

    $sizeStr = $resp->getHeaderField("Content-Length");
    if ($sizeStr eq null ) {
        print "No content-length header field" . "\n";
    }
    else {
        #  Show the size of the file.
        #  You may convert the size string to an integer...
        print $sizeStr . "\n";
    }

}