Mastering Algorithms with Perl by Jarkko Hietaniemi, John Macdonald, Jon Orwant
Tcl/Tk in a Nutshell by Paul Raines, Jeff Tranter