1BEGIN {
2  NetService = "/inet/tcp/8888/0/0"
3  NetService |& getline       # sets $0 and the fields
4  CatPipe    = ("cat " $1)
5  while ((CatPipe | getline) > 0)
6    print $0 |& NetService
7  close(NetService)
8}
9