Select Code to Download

(sub {... magic(...) ... )->(args)

use strict;
{
    my $coderef;
    ($coderef = sub { ... $coderef->(...) ...)->(args);
}

use strict; 

...
    my $coderef;
    ($coderef = sub {return unless $_[0] > 0; print "$_[0]\n"; $codere
+f->($_[0]-1)})->(4);
}