[draegtun]

And in Perl6 you can drop the sub bit:

    my $block = { say "w00t, blocks!" };

And there are also pointy blocks for neater stuff:

    my $pointy_block = -> $text { say "$text, blocks" };
    $pointy_block("ne@t");