Select Code to Download

while (1) {

    if ($server_sock->recv($rcvd_data,1024)) {
...
        $new_socknum+=1;
    }
}

$socket->send("Go!\n");
$socket->recv($data,1024);
$port=decodeUDP($data,1024);
...
$socket=IO::Socket::INET->new(PeerHost=>$ip,PeerPort=>$port,Proto=>'ud
+p',LocalAddr=>$own_ip);
if ($socket) { print "Reconnected to dedicated port $port ok!\n"; }
else { die "Error switching to dedicated port $port!\n"; }

sub decodeUDP {
    my $packet=shift;
    my $size=shift;

    return unpack("A$size",$packet);
}

sub handleAClient {

    my $my_addr=shift;
...
        }
    }
}