#!/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";