sub A {
    return $_[0] x 2 . ' (from A)';
}
sub B {
    my $arg = shift;
    return "B got $arg as argument\n";
}

##</code><code>##

print B(A("c")),"\n";

##</code><code>##

B got cc (from A) as argument