#!/usr/bin/perl

use strict;
use warnings;

use XML::Simple qw(XMLin);
use Data::Dumper;

my $xml = <<'END_OF_XML';
<?xml version='1.0' encoding='utf-8'?>
<GetQueueAttributesResponse xmlns="http://queue.amazonaws.com/doc/2012-11-05/"><GetQueueAttributesResult><Attribute><Name>ApproximateNumberOfMessages</Name><Value>0</Value></Attribute><Attribute><Name>ApproximateNumberOfMessagesNotVisible</Name><Value>0</Value></Attribute><Attribute><Name>ApproximateNumberOfMessagesDelayed</Name><Value>0</Value></Attribute><Attribute><Name>CreatedTimestamp</Name><Value>1697464823</Value></Attribute><Attribute><Name>DelaySeconds</Name><Value>0</Value></Attribute><Attribute><Name>LastModifiedTimestamp</Name><Value>1697464823</Value></Attribute><Attribute><Name>MaximumMessageSize</Name><Value>262144</Value></Attribute><Attribute><Name>MessageRetentionPeriod</Name><Value>345600</Value></Attribute><Attribute><Name>QueueArn</Name><Value>arn:aws:sqs:us-east-1:000000000000:foo</Value></Attribute><Attribute><Name>ReceiveMessageWaitTimeSeconds</Name><Value>0</Value></Attribute><Attribute><Name>VisibilityTimeout</Name><Value>30</Value></Attribute><Attribute><Name>SqsManagedSseEnabled</Name><Value>false</Value></Attribute></GetQueueAttributesResult><ResponseMetadata><RequestId>GCG1YYS1UL0MESBPD4X9FTSTQQ6BS6N2D71V88ULV1LWMMFIWK4H</RequestId></ResponseMetadata></GetQueueAttributesResponse>
END_OF_XML

print Dumper( [ XMLin($xml) ] );

1;
