up.pl

#!/usr/bin/env perl
use strict;
use warnings;
use Amazon::S3;

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

my $bucket = $s3->bucket($ARGV[0]);

my $filepath = $ARGV[1];
my $keyname = $ARGV[2];

$bucket->add_key_filename($keyname, $filepath)  or die $s3->err . ':' . $s3->errstr;