use IO::Socket;
my $PORTNO = 7090;
$sock = IO::Socket::INET->new(LocalPort => $PORTNO, Proto => 'udp')
while ($sock->recv($request, $MAXLEN)) {
	$response=parseRequest($request);
	$sock->send($response);
}