as3からPOSTを受け取る

#!/usr/bin/perl

use strict;
use warnings;

print "Content-type: text/plain; charset=utf-8\n\n";

my $str = $ENV{"QUERY_STRING"};
print <<END_OF_TEXT;
<xml>
  <EAST>m:7,m:7,s:4,s:5,s:5,s:6,s:6,s:7,p:1,p:8,p:9,j:2</EAST>
  <RANDOM>$str</RANDOM>
  <METHOD>$ENV{REQUEST_METHOD}</METHOD>
</xml>
END_OF_TEXT
if ($ENV{REQUEST_METHOD} eq "POST") {
  my $data = new CGI;
  print $data->param('uma');
}

   var request:URLRequest = new URLRequest(
    "http://192.168.1.11/~hato/bin/cgi-bin/test.cgi?test=1\&" +
    Math.floor(Math.random() * 1000)//ブラウザキャッシュ対策
    );
   request.method = URLRequestMethod.POST;
   request.data = "uma=umauma";
   var loader:URLLoader = new URLLoader();
   loader.addEventListener(Event.COMPLETE, onSentPost);
   loader.load(request);
}// init main

private function onSentPost(e:Event):void 
{
  var str:String = new String(e.target.data);
  trace(str);
}

// --- run
<xml>
	<EAST>m:7,m:7,s:4,s:5,s:5,s:6,s:6,s:7,p:1,p:8,p:9,j:2</EAST>
	<RANDOM>test=1&322</RANDOM>
	<METHOD>POST</METHOD>
</xml>
umauma