#!/usr/bin/perl -w

use strict;
use CGI::Carp qw(fatalsToBrowser);
use IO::Socket;

my ( $HOSTNAME, $PORTNO, $MAXLEN, $nachricht );

$HOSTNAME	= '127.0.0.1' ;
$PORTNO		= 5151;
$MAXLEN		= 1024;
$nachricht	= 'Hallo Computer';

socket ( SOCKET, PF_INET , SOCK_DGRAM, getprotobyname ( 'udp' ) ) or die "socket: $!";
my $ipaddr		= inet_aton ( $HOSTNAME );
my $portaddr	= sockaddr_in ( $PORTNO, $ipaddr );

send ( SOCKET, $nachricht , 0, $portaddr ) == length ( $nachricht ) or die "cannot send to $HOSTNAME($PORTNO): $!";
$portaddr		= recv ( SOCKET, $nachricht, $MAXLEN, 0 ) or die "recv: $!";

( $PORTNO, $ipaddr )	= sockaddr_in ( $portaddr );
my $host = gethostbyaddr( $ipaddr, AF_INET );
print "$host($PORTNO) said $nachricht$/";