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

my $port = shift || 9875;
my $host = shift || hostname();

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