Use Perl to upload files to S3 and set headers for HTTP

#!/usr/bin/perl

# Stencils connects to I S3 account, creates a new bucket
# and uploads a file called logo.jpg ( Passed thru STDIN) with
# public-read ACL set



Use strict;
Use warnings;

Print "moment-in specil file name for key\n" if @ARGV <1;

Use S3;
Use s3::awsauthconnection;
Use S3::querystringauthgenerator;

My $AWS _access_key_id = ' 1dq5tn5665z7tvdnn682 ';
My $AWS _secret_access_key = ' czppqc55s2zf8jxwfme4juohpb9h4pqgtigbf3se ';
My $BUCKET _name = ' SQUIDWM ';
My $KEY = $ARGV [0];

#my @file_name_for_key =split/\//, "$ARGV [0]";
#my $KEY = Pop @file_name_for_key;
#print $KEY;

My%headers = (
     ' x-amz-acl ' => ' public-read ', ' Cache-control ' => ' 24342 ',
);

My $conn =
    s3::awsauthconnection->new ($AWS _access_key_id, $AWS _secret_ Access_key);
My $generator =
    s3::querystringauthgenerator->new ($AWS _access_key_id, $AWS _Secret_access_key);

Print $conn->create_bucket ($BUCKET _name)->message, \ n;

My $data;
File:while (1) {
    my $n = Sysread (STDIN, $data, 1024 * 1024, Length ($data));
    if ($n < 0) {
        print STDERR] Error Reading input: $!\n ";
        exit 1;