[profile instrument]
source_profile = default
role_arn = arn:aws:iam::MY_IAM_CODE:role/MY_ROLE
region = us-east-1

[default]
region = us-east-1
aws_secret_access_key = "MY_SECRET_ACCESS_KEY"
aws_access_key_id = "MY_ACCESS_KEY_ID"

##</code><code>##

#!/usr/bin/perl

use strict;
use warnings;

use Data::Dumper;
use Paws;
use Paws::Net::LWPCaller;
use Paws::Credential::AssumeRole;

my $lwp_caller = new Paws::Net::LWPCaller( debug => 1 );
my $cloudwatch = Paws->service('CloudWatch', 
                                caller => $lwp_caller, 
                                credentials => Paws::Credential::AssumeRole->new(
                                    RoleArn => 'arn:aws:iam::MY_IAM_CODE:role/MY_ROLE',
                                    RoleSessionName => 'just_kidding',
                                    caller => $lwp_caller, 
                                ),
                                region => 'us-east-1', 
                                profile_name => 'instrument',
                              );


#print Dumper( $cloudwatch );
#exit;

my $res = $cloudwatch->ListAllMetrics( 
      Dimensions => [],
      MetricName => 'MY_METRIC', 
      Namespace  => 'MY_NAMESPACE', 
      #NextToken  => '',
);

print Dumper( $res );
exit;

##</code><code>##

my $cloudwatch = Paws->service('CloudWatch', 
                                caller => $lwp_caller, 
                                credentials => Paws::Credential::AssumeRole->new(
                                    RoleArn => 'arn:aws:iam::MY_IAM_CODE:role/MY_ROLE',
                                    RoleSessionName => 'just_kidding',
                                    #caller => $lwp_caller, 
                                ),
                                region => 'us-east-1', 
                                profile_name => 'instrument',
                              );