発売ほやほやの「らくだ本３版」より。
sub color_font {
my $color = shift;
return "<FONT COLOR='$color'>@_</FONT>";
}
と定義して、
sub red { color_font("red", @_) }
sub green { color_font("green", @_) }
sub blue { color_font("blue", @_) }
sub purple { color_font("purple", @_) }
と呼び出すのは面倒なので、

@colors = qw(red blue green yellow orange purple violet);
for my $name (@colors) {
no strict 'refs';
*$name = sub { "<FONT COLOR='$name'>@_</FONT>" };
}
とする方法がらくだ本３版にありましたが、
rubyだと、関数を生成してながら実行するコードってどのようなサンプルが
ありますか？なんかいい例ないかな。探してます。