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