while(exists $humanity{(getpwuid $<)&#91;6&#93;}) {
	sleep 86400; # SIGALRM wakes me up before that.
	eat;
	code(${chr 24}) while awake;
}