Select Code to Download

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

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

B got cc (from A) as argument