Contents of file "jcimsend"

#!/usr/pkg/bin/perl
use Socket;
$udp = getprotobyname('udp');
# place in /etc/services:
# jcim		25450/udp			# John Comeau's instant messenger
$port = getservbyname('jcim', 'udp') || die "Undefined port JCIM\n";
socket(Socket_Handle, PF_INET, SOCK_DGRAM, $udp) || die "No socket: $!\n";
($addr, @message) = @ARGV;
$sockaddr = sockaddr_in($port, (gethostbyname($addr))[4]);
send(Socket_Handle, "@message", 0, $sockaddr) || die "Cannot send: $!\n";