Policy и сокеты.

[Resonan]

Целый день ушел в пустую :/
Есть простой демон на перле:

use IO::Socket;

my $serv = IO::Socket::INET->new(
      LocalPort => 7777,
      Proto     => 'tcp',
      Listen    => 10,
      Reuse     => 1)
   or die "fig";

$police='<cross-domain-policy><allow-access-from-domain="*" to-ports="7777" /></cross-domain-policy>';

while (my $cl = $serv->accept()) {
   my $msg = <$cl>;
   if ($msg eq '<policy-file-request/>') {
       print $cl "$police";
       warn "Request\n";
       close $cl;
   } else {
        warn "Connected\n";
   }
}
close $serv;

и флешка:

package {
 import flash.display.*;
 import flash.events.*;
 import flash.net.*;
 import flash.text.*;
 
 public class sockConn extends Sprite {
	 function sockConn() {
		var socket = new Socket();
		socket.addEventListener (Event.CONNECT, connLis);
 
		socket.connect ('localhost', 7777);
	 }
 
	 function connLis (e:Event):void {
		 text1.appendText("connected\n");
	 }
 }
}

Флешка подключается, запрашивает полис, демон благополучно его отдает, и все :/