my $result = $s3->buckets();

##</code><code>##

my $result = $s3->buckets();
if( ! $result ) {
    warn "There was an error when looking at the existing buckets:";
    warn join " - ", $s3->err, $s3->errstr;
    die "Cannot continue.";
};
...