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