use Amazon::SQS::Simple;
use Thread::Pool;

my $sqs = new Amazon::SQS::Simple($AWS_ACCESS_KEY_ID, $AWS_SECRET_ACCESS_KEY);

my $q = $sqs->GetQueue($QUEUE_URL);
my $msg;

while (1) {
	$msg = $q->ReceiveMessage();
	if ($msg != "") {
		#New message found, process message
		print $msg->MessageBody();
	} else {
		print "No new messages.\n"
	}
	#Polling interval
	sleep(2);
}

##</code><code>##

Prototype mismatch: ($;$$) vs none at (eval 1808) line 2, <VERSION> line 797.
Prototype mismatch: ($;$) vs none at (eval 1810) line 2, <VERSION> line 824.
Prototype mismatch: ($$) vs none at (eval 1812) line 2, <VERSION> line 842.
Prototype mismatch: ($) vs none at (eval 1814) line 2, <VERSION> line 880.
Prototype mismatch: sub Net::SSLeay::randomize (;$$$) vs none at (eval 1815) line 2, <VERSION> line 902.
Prototype mismatch: ($$$) vs none at (eval 1824) line 2, <VERSION> line 1202.
Prototype mismatch: ($$$) vs none at (eval 1825) line 2, <VERSION> line 1206.
Prototype mismatch: ($$;**) vs none at (eval 1826) line 2, <VERSION> line 1219.
Could not find file for 'XML::LibXML::SAX' at /usr/local/share/perl/5.12.4/load.pm line 214.