Perl Script - A quick little perl backup wrapper for s3cmd sync