#!/usr/bin/perl

BEGIN {
    eval {
        do {
            use strict;
            use warnings;
        }
    };
}

use load qw(AutoLoader now);
use Thread::Pool;
use Amazon::SQS::Simple;

my $queue_url  = 'https://queue.amazon.com';
my $access_key = q{id};
my $secret_key = q{key};

my $sqs = new Amazon::SQS::Simple($access_key, $secret_key);

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

while (1) {
	$msg = $q->ReceiveMessage();
	if ($msg != "") {
		 print $msg->MessageBody();
	} 
	else {
		 print "No new messages.\n"
	}
	sleep(2);
}