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

my $port = shift or die "syntax: $0 port\n";

my $block_size = 64*1024;

socket UDP, PF_INET, SOCK_DGRAM, getprotobyname('udp') or die 'socket';
bind UDP, sockaddr_in($port, INADDR_ANY) or die 'bind';
while (1) {
	my $data;
	recv UDP, $data, $block_size, 0 or die 'error';
	last if $data eq "";
	syswrite STDOUT, $data;
}
sleep 1;