(Perl) Add Custom Header to HTTP GET

Demonstrates how to add a custom HTTP request header to an HTTP GET. This is not a request parameter, but is a header added to the MIME header of the HTTP request.

Chilkat Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux, Solaris

use chilkat();

# All Chilkat classes can be unlocked at once at the beginning of a program
# by calling UnlockBundle.  It requires a Bundle unlock code.
$chilkatGlob = chilkat::CkGlobal->new();
$success = $chilkatGlob->UnlockBundle("Anything for 30-day trial.");
if ($success != 1) {
    print $chilkatGlob->lastErrorText() . "\r\n";
    exit;
}

$http = chilkat::CkHttp->new();

# Add a custom header.  The MIME field name is "X-CSRF-Token", and the 
# header field value is "Fetch".
$http->SetRequestHeader("X-CSRF-Token","Fetch");

# Send the HTTP GET and return the content in a string.

$html = $http->quickGetStr("http://www.galapagos.org/");

print $html . "\r\n";