sub comp {
        my ($f, $g) = @_;
        return sub {
                my $x = shift;
                return $f->($g->($x));
        };
}
sub test {
        return (shift) . " test";
}
print comp(\&test, comp(\&test,\&test))->("test ");