#!/opt/perl/bin/perl


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

my $bucket = $s3->bucket($bucketName);


$bucket->add_key_filename(
  $file_name,
  $file_name,
  {
    content_type => "text/plain",
  }
);

my $result = $s3->buckets();
my @buckets;
   @buckets = @{ $result->{buckets} } if defined $result;