hermes-unread

   1 #! /usr/bin/perl -w
   2 use diagnostics;
   3 use strict;
   4 use Socket;
   5
   6 my $sin = sockaddr_in 2345, inet_aton 'hermes.cam.ac.uk';
   7 for (@ARGV)
   8 {
   9         socket HERMES, PF_INET, SOCK_STREAM, getprotobyname 'tcp' or
  10                 die "Couldn't create socket: $!";
  11         connect HERMES, $sin or die "Couldn't connect: $!";
  12         send HERMES, "$_\015\012", 0;
  13         my $text;
  14         recv HERMES, $text, 256, MSG_WAITALL;
  15         print((split /\n/, $text, 2)[1]);
  16         close HERMES;
  17 }
  18