sub describe_alarms {
    my ($alarm_name_prefix) = @_;
    my $obj = Paws->service( 'CloudWatch', region => 'us-east-1' );
    my $result = $obj->DescribeAlarms(
        AlarmNamePrefix => $alarm_name_prefix,

    );


    print Dumper($result);

    return $result;
}