Good Perl code is the best form of evangelism
(About.com) Here is a clear re-factoring of a terrible Perl routine into good Perl. The author pulls a terrible example of a Perl routine from the Microsoft Scripting Games and proceeds...
Update update feed set failed_fetches=0, fetched=current_timestamp() where feed_id = 1126 failed: 1142 [UPDATE command denied to user '334187_hdlns_ms5'@'10.187.248.89' for table 'feed'] in [update feed set failed_fetches=0, fetched=current_timestamp() where feed_id = 1126]
updated 1126 (Perl PHP), inserted 0, updated 0, at 2012-05-30 15:48:39
