#!/usr/bin/perl
use strict;
use warnings;
use IO::Socket::INET;
$| = 1;
my ($socket,$received_data,$peer_address,$peer_port);
$socket = new IO::Socket::INET (
    LocalPort => '5000',
    Proto => 'udp',
    Broadcast => '1',
) or die "ERROR in Socket Creation : $!\n";
print "Start Server.\n";
while(1)
{
    $socket->recv($received_data,1024);
    $peer_address = $socket->peerhost();
    $peer_port = $socket->peerport();
    print "($peer_address:$peer_port) said: \"$received_data\"\n";
    $socket->send('data from Server') or print "Can't send data! $!\n";
}
$socket->close();