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