+++ /dev/null
-#! /usr/bin/perl -w
-use diagnostics;
-use strict;
-use Socket;
-
-my $sin = sockaddr_in 2345, inet_aton 'hermes.cam.ac.uk';
-for (@ARGV)
-{
- socket HERMES, PF_INET, SOCK_STREAM, getprotobyname 'tcp' or
- die "Couldn't create socket: $!";
- connect HERMES, $sin or die "Couldn't connect: $!";
- send HERMES, "$_\015\012", 0;
- my $text;
- recv HERMES, $text, 256, MSG_WAITALL;
- print((split /\n/, $text, 2)[1]);
- close HERMES;
-}
-