Plan 9 from User Space's /usr/local/plan9/bin/label

#!/bin/sh

case `uname` in
SunOS)
	awk=nawk
	;;
*)
	awk=awk
	;;
esac

label() {
	echo "$@" | $awk '{printf("\033];%s\007", $0);}'
}

label "$@"

Space Glenda

Copyright © 2005 Lucent Technologies, Russ Cox, MIT.
See license for details.