6 my $sin = sockaddr_in 2345, inet_aton 'hermes.cam.ac.uk';
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;
14 recv HERMES, $text, 256, MSG_WAITALL;
15 print((split /\n/, $text, 2)[1]);