(Perl) S3 List Buckets

Demonstrates how to retrieve the XML listing the buckets for an Amazon S3 account.

 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");

$xmlStr = $http->s3_ListBuckets();

if ($xmlStr eq null ) {
    #  Failed
    print $http->lastErrorText() . "\r\n";
}
else {
    #  Success
    print $xmlStr . "\r\n";
}