How about Perl for High School Kids? Then we would have a decent influx of new blood wanting to program in Perl (and buy more books). Chapters on managing mp3 files, cool ways to update their blog, building their own instant messenger client and report writing search engines could get them going.