Tokyoリージョンにキューを作成する

use strict;
use warnings;
use Amazon::SQS::Simple;

my $access_key = 'hogehoge';
my $secret_key = 'fugafuga';

# SQSオブジェクトを作成します。
my $sqs = new Amazon::SQS::Simple( $access_key, $secret_key );

# ここでエンドポイントを強引に変更
$sqs->{Endpoint} = "https://ap-northeast-1.queue.amazonaws.com";

# キューを作成します。(東京リージョンにキューが作られます)
my $q = $sqs->CreateQueue('test_tokyo');

# キューにメッセージを送付します。
my $msg = 'Hello World into Tokyo';
$q->SendMessage($msg);

Tokyoリージョンのキューからメッセージを受け取る

use strict;
use warnings;

use Amazon::SQS::Simple;

my $access_key = 'hogehoge';
my $secret_key = 'fugafuga';

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

$sqs->{Endpoint} = "https://ap-northeast-1.queue.amazonaws.com";
# Createと書いているが実は既存キューの取得
my $q = $sqs->CreateQueue('test_tokyo');

my $msg = $q->ReceiveMessage() or die "no messages left";
print $msg->MessageId() . "\n". $msg->MessageBody() . "\n";

$sqs->{Endpoint} = "https://ap-northeast-1.queue.amazonaws.com";
my $q = $sqs->CreateQueue('test_tokyo');

my $q = $sqs->GetQueue('https://ap-northeast-1.queue.amazonaws.com/1234567890/test_tokyo');