use strict;
use warnings;
use IO::Socket;
$SIG{CHLD} = 'IGNORE';

my $mes = '<?xml version="1.0"?><cross-domain-policy><allow-access-from domain="*" to-ports="*" /></cross-domain-policy>';
my $port = 843;

my $sock = IO::Socket::INET->new(LocalPort => $port, Listen => 10, Proto => 'tcp', Reuse => 1) || die $!;

while (my $conn = $sock->accept)
{   
 my $child = undef;
 die $! unless defined ($child = fork);
 if ($child == 0)
    {
	 $sock->close;
	 print $conn $mes;
	 $conn->close;
	 exit 0;
    } 
 else
    {
	 warn "Peer connected: ".$conn->peerhost."\n";
	 $conn->close;
    }
}