use AWS::S3;

my $aws_access_key_id     = "XXX";
my $aws_secret_access_key = "XXX";
 
my $s3 = AWS::S3->new(
  access_key_id     => $aws_access_key_id,
  secret_access_key => $aws_secret_access_key,
  honor_leading_slashes => 0, # set to allow leading slashes in bucket names, defaults to 0
);
 
my @bucket_list = $s3->buckets;
my $bucket = @bucket_list[0];

my $name = $bucket->name;
my $acl = $bucket->acl;

print "Name: " . $name . ", ACL: " . acl . "\n";

# Add a file:
my $new_file = $bucket->add_file(
  key       => 'foo/bar.txt',
  contents  => \'This is the contents of the file',
);