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

my $port = shift || 9875;

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