#!/usr/bin/gawk -f BEGIN { server="wordnetweb.princeton.edu" connection="/inet/tcp/0/"server"/www" term=ARGV[1] url="/perl/webwn?s=" term request="GET " url " HTTP/1.0\r\n\r\n" # send HTTP request print request |& connection # receive HTTP response while (connection |& getline) { print ++lines,go "::" $0 >> "/dev/stderr" # process data if ($0 ~ "