#!/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';
setsockopt(UDP,SOL_SOCKET,SO_BROADCAST,1) or die "setsockopt";
my $iaddr = "255.255.255.255";
my $paddr = sockaddr_in($port, inet_aton($iaddr));
while (my $buf = <>) {
        send UDP, $buf, 0, $paddr;
}
send UDP, "", 0, $paddr;