Example: def#! /usr/bin/perl -w use IO::Socket; use strict; die "usage: $0 <word> ...\n" unless @ARGV; my $sock = IO::Socket::INET->new('dict.org:2628') or die "$0: can't connect to dict.org: $!\n"; print $sock map("DEFINE * $_\r\n",@ARGV), "QUIT\r\n"; print <$sock>; |