#!/afs/athena/contrib/perl5/p -w

use Socket;
use FileHandle;
use strict;

use vars qw( $port $proto $query $host $iaddr $num );
 
$num = shift(@ARGV) || 100;

$proto = getprotobyname('udp');
$port = getservbyname('qotd', undef) || die "Invalid port: qotd/udp";

$iaddr = inet_aton('hal') || die "Invalid host: hal";
print STDERR "Connecting to @{[inet_ntoa($iaddr)]}.$port...\n";
 
my ($fh, $sin) = new FileHandle;
socket($fh, PF_INET, SOCK_DGRAM, $proto) || die "socket: $!";
$sin = sockaddr_in($port, $iaddr);
connect($fh, $sin) || die "connect: $!";

my $size = send($fh, pack("C*", (0..255))x $num, 0) || die "send: $!";
print "S: $size\n";