use strict;
no strict 'vars';

use IO::Socket;

$sock = IO::Socket::INET->new(LocalAddr => 'localhost',
                                                                LocalPort => 9000,
                                                                Proto => 'udp');
                                                                
$main->repeat(100=>\&run);      
                                                        
sub run
{                                                               
        while($new_sock = $listenSock->accept())
        {
          print RX "peer=".$new_sock->peerhost."\n";
          $rxText="";
          do
            {
              $new_sock->recv($rx_txt,4095);
              $rxText.=$rx_txt;
             } until (!length($rx_txt));

             print RX "$rxText\n\n";
             print LOGFILE "$rxText\n";
            $new_sock->close();
        }
}