HTTP HEAD Request

Simple HTTP HEAD request to download only the HTTP header.

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;
}

#  Send the HEAD request and get the response.

$response = $http->GetHead("http://www.chilkatsoft.com/");

if ($response eq null ) {
    print $http->lastErrorText() . "\n";
}
else {

    #  Show the HTTP response code and header received.
    print "HTTP response code: " . "\r\n";
    print $response->get_StatusCode() . "\r\n";

    print "---- FULL HEADER ----" . "\r\n";
    print $response->header() . "\r\n";
    print "---------------------" . "\r\n";

    #  How big will the full response be?  This is a good way to
    #  check the size of a download (if the URL is a .zip)
    print "Size of resource = " . $response->get_ContentLength() . "\r\n";

}