JavaとPerlでUDPソケット通信

#!/usr/bin/perl
#udpserver.pl

#use 5.10.0;
use IO::Socket::INET;

# 標準出力をオートフラッシュ
$| = 1;

# ソケット、受信データ変数定義
my ($socket, $received_data);

# クライアントIP、ポート変数定義
my ($peeraddress, $peerport);

$socket = new IO::Socket::INET (
LocalPort => '5000',
Proto => 'udp',
Reuse => 1,
Type => SOCK_DGRAM
) or die "ERROR in socket creation : $!\n";

while(1)
{
    # ソケット受信待ち
    $socket->recv($recieved_data,1024);

    # 接続してきたクライアントのIPとポートをダンプ
    $peer_address = $socket->peerhost();
    $peer_port = $socket->peerport();
    # say "\n($peer_address, $peer_port) said : $recieved_data";
    print "\n($peer_address, $peer_port) said : $recieved_data";

    # 接続してきたクライアントにデータを返信
    $data = "data from udp server\n";
    # say $socket "$data";
    $socket->send($data);

}

$socket->close();

package com.sample.snippet;

import java.io.InterruptedIOException;
import java.net.DatagramPacket;
import java.net.DatagramSocket;
import java.net.InetSocketAddress;

public class UDPClient {

	public static void main(String[] args) throws Exception {
        // UDPサーバに送信するデータ
		byte[] sendData = "UDP send test".getBytes();

        // UDPサーバから受信するデータ
		byte[] receiveData = new byte[16];

        // リトライ回数
		int tries = 0;

        // 応答可否
		boolean response = false;

        // UDPパケットを作成
		InetSocketAddress serverAddress = 
            new InetSocketAddress("192.168.0.5", 5000);
		DatagramSocket socket = new DatagramSocket();
		socket.setSoTimeout(4000);
		DatagramPacket sendPacket = 
            new DatagramPacket(sendData, sendData.length, serverAddress);
		DatagramPacket receivePacket = 
            new DatagramPacket(receiveData, receiveData.length);

        // 送信失敗した場合は5回リトライ
		do {
			socket.send(sendPacket);

			try {
				socket.receive(receivePacket);
				response = true;
			} catch (InterruptedIOException e) {
				tries++;
				System.out.println("Try!!");
			}
		} while ((!response) && (tries < 5));

		if (response) {
			System.out.println(new String(receivePacket.getData()));
		} else {
			System.out.println("No Response!!");
		}
	}
}

C:\src\perl>perl udpserver.pl

(192.168.0.5 , 58633) said : UDP send test
(192.168.0.5 , 60942) said : UDP send test
(192.168.0.5 , 60947) said : UDP send test

data from server