I really like:

require 'some explanation'; for ($idiom;;){
 if ($idiom->is_good){
 use it_in_Perl ('instead');}
 if ($idiom->is_bad){
 carp "No surprise there.";
[download]

:-)

Russ