Plan 9 from Bell Labs’s /usr/web/sources/contrib/anothy/bin/rc/ncp
#!/bin/rc # No fancy udp broadcast here, so this is really trivial. listenaddr='tcp!*!8002' if (~ $1 '-l') { listenaddr=$2 shift 2 } if (! ~ $1 '') { target=$1 shift tar cv $* | con -l $target } if not { aux/listen1 -tv $listenaddr /bin/tar -xvT }