(Perl) S3 Delete File

Demonstrates how to delete a remote file (object) on the Amazon S3 service.

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

$bucketName = "chilkattestbucket";

$objectName = "starfish.jpg";

$success = $http->S3_DeleteObject($bucketName,$objectName);

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