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;
    }
}

#- часть кода из даемона

my $data = '';
my $rv   = $client->recv($data, POSIX::BUFSIZ, 0);  #Читаем данные 

#- данные я отправляю в xml  например строку
#-<a><con><comanda>start</comanda></con></a>

#- данные приходят все нормально только я пытаюсь #-эту строку разбить на хэш  но даемон сразу 
#-останавливается

my $lic = (XML::Simple->new()->XMLin($data));

my $data = '<a><con><comanda>start</comanda></con></a>';
my $lic = (XML::Simple->new()->XMLin($data));