#!/usr/bin/perl

use strict;
use warnings;
use CPAN;

CPAN::Shell->install(qw(
load
Thread::Serialize
Thread::Tie
Thread::Conveyor
Thread::Conveyor::Monitored
Thread::Queue
XML::NamespaceSupport
XML::SAX::Base
XML::SAX
XML::SAX::Expat
XML::LibXML::SAX
XML::Simple
WWW::RobotRules
HTML::Tagset
HTML::Parser
HTTP::Date
Encode::Locale
LWP::UserAgent
LWP::MediaTypes
HTTP::Headers
HTTP::Headers::Util
HTTP::Status
HTTP::Daemon
Net::HTTP
URI
HTTP::Negotiate
File::Listing));

##</code><code>##


#!/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);
}