# Usage: my $code = codestick( \&foo, \&bar, \&baz);
# Call with $code->(LIST);
sub codestick {
    my @subs = @_;
    sub { &$_ for @subs; }
}