or download this
#/bin/sh
echo 'To Do List'
find . -type f | xargs grep -n TODO | perl -ne '($file, $line, $rest)
+= split /:/, $_, 3; $file =~ s|^./||; $rest =~ s|.*?TODO.*?[-\s:]+||;
+ $rest =~ s|"[.;,]\s*$||; $rest =~ s|\\n||g; print "$file $line: \u$r
+est\n"' | sort | uniq | grep -v '.#' | grep -v Makefile | grep -v CVS
+/