#!/usr/local/bin/perl -w
use IO::Socket::INET;

if($#ARGV < 0) {
	print "usage:	$0 screenname [files]\n";
} else {
	undef local $/;
	my $dest = shift @ARGV;
	my $msg = <>;
	IO::Socket::INET
		->new(PeerPort=>17520,Proto=>'udp',PeerAddr=>'localhost')
		->send("ITSNO\n$dest\n$msg\n");
}