#!/usr/bin/perl
use strict;
use warnings;
use IO::Socket::INET;
use IO::Select;
$| = 1;
my ($socket,$select,$data,$peer_address,$peer_port);
$socket = new IO::Socket::INET (
    PeerAddr  => inet_ntoa(INADDR_BROADCAST),
#    PeerAddr   => '192.168.0.15',
    PeerPort  => '5000',
    LocalPort => '5001',
    Proto        => 'udp',
    Broadcast => '1',
) or die "ERROR in Socket Creation : $!\n";
$select = new IO::Select or die "no select: $!\n";
$select->add( $socket ) or die "no add socket: $!";
print "Start Client.\n";
$socket->send('data from client') or die "send faild: $!";
while ($select->can_read(2)){
    $socket->recv($data,128);
    $peer_address = $socket->peerhost();
    $peer_port = $socket->peerport();
    print "($peer_address:$peer_port) said: \"$data\"\n";
}
$socket->close();
print "Ende\n";