#!/usr/bin/perl -w
use strict;
use Socket;
use Sys::Hostname;

socket UDP, PF_INET, SOCK_DGRAM, getprotobyname('udp') or die 'socket';
my $iaddr = gethostbyname(hostname());
my $paddr = sockaddr_in(6201, $iaddr);
while (my $buf = <>) {
	send UDP, $buf, 0, $paddr;
}

__END__

use IO::Socket;
my $sock = IO::Socket::INET->new(Proto => 'udp');
my $iaddr = gethostbyname(hostname());
my $paddr = sockaddr_in(620, $iaddr);
while (my $buf = <>) {
	$sock->send($buf, 0, $paddr);
}