use Amazon::S3;
my $file_name = "filename.txt";
my $bucketName = "forest-upload";

my $s3 = Amazon::S3->new({
 aws_access_key_id => "XX",
 aws_secret_access_key => "XX",
 retry => 1
});

print $s3;
print "\n";
my $result = $s3->buckets();
my $bucket_name = 'Test-Bucket';
my $bucket = $s3->add_bucket( { bucket => $bucket_name } ) or die $s3->errstr ;