(Perl) S3 Create Bucket

Demonstrates how to create a new bucket.

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

use chilkat();

$http = new chilkat::CkHttp();

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

#  Insert your access key here:
$http->put_AwsAccessKey("ABQXXABC83ABCDEFVQXX");

#  Insert your secret key here:
$http->put_AwsSecretKey("XXXXYYYYabcdABCD12345678xxxxyyyyzzzz");

$success = $http->S3_CreateBucket("chilkattestbucket");

if ($success != 1) {
    print $http->lastErrorText() . "\r\n";
}
else {
    print "Bucket created." . "\r\n";
}