Доброе время суток.

А подскажите пж, как сделать чтоб этот код отправлял данные клиенту в ответ на определенный порт. Сам больше а то когда клиент что нить примылает мне на порт 6666, то сервак ему в ответ на (к примеру) 50603 отсылает. а надо чтоб на 6666 клиенту ответ кинул.

#!/usr/bin/perl -w
use strict;
use IO::Socket;
my($sock, $oldmsg, $newmsg, $hisaddr, $hishost, $MAXLEN, $PORTNO);
$MAXLEN = 10;
$PORTNO = 6666;

$sock = IO::Socket::INET->new(
LocalPort => $PORTNO,
Proto => 'udp'
) or die "socket: $@";
    print "Awaiting UDP messages on port $PORTNO\n";

$sock->autoflush(1);

$oldmsg = "This is the starting message.";
    
while ($sock->recv($newmsg, $MAXLEN)) {
    my($port, $ipaddr) = sockaddr_in($sock->peername);
    print "Client said ``$newmsg''\n";    
    $sock->send($oldmsg);
    $oldmsg = "$newmsg";
}
die "recv: $!";

Спасибо Вам большое