Xinetd + UDP + Perl. Пишем сервер UDP под управлением Xinetd

[masterzep 9]

Всем привет. Столкнулся с проблемой. Не могу получить и отправить данные в UDP сокет из Perl скрипта, сквозь Xinetd.

 

Конфиг Xinetd:

 

service check_state
{
   disable                 = no
   port                    = 30001
   socket_type             = dgram
   protocol                = udp
   wait                    = yes
   user                    = root
   server                  = /scripts/check_state.pl
   #env                     = HOME=/var/cvs
}

 

Perl код:

 

#!/usr/bin/perl

use IO::Handle;
use IO::Socket;
use Socket;

if (-S STDIN) { system("echo 'is sock' >> /tmp/xinetd.log"); } else { exit; }

my $sock = IO::Socket->new_from_fd(\*STDIN,"+<") or die "$!";

STDIN->fdopen($sock,"<") || die $!;
STDOUT->fdopen($sock,">") || die $!;
STDERR->fdopen($sock,">") || die $!;

print "test";

#$sock->send("test");

exit;

 

 

Итог: клиент данных не получает. У кого-нибудь есть опыт в данном случае?? Заранее спасибо

 

П.С. В режиме TCP сервера - писал. Там проблем не возникло.

[mlevel 52]

use strict;

use warnings;

use diagnostics;

use Data::Dumper;