• View
• Edit
• History
• Print

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>;