Select Code to Download

use List::Util qw(reduce);
sub compose {
    reduce { sub { $b->($a->(@_)) } } @_;
}

sub compose {
    my $c = shift;
...
    }
    $c
}