paws s3 perl script

#! /usr/bin/env perl

use feature qw(say);
use strict;
use warnings;
use Data::Dumper;
use Paws;

my $s3 = Paws->service('S3', region => 'us-east-2');
my $bucket = 'hakonhagland-second-bucket';
my $obj_content = $s3->SelectObjectContent(
    Bucket              => $bucket,
    Expression          => 'SELECT * FROM S3Object',
    ExpressionType      => 'SQL',
    InputSerialization  => {
        JSON => {
            Type => 'LINES',
        }
    },
    Key                 => 'test.json',
    OutputSerialization => {
        JSON => {}
    } );
print Dumper( $obj_content );