Help for this page
sub a { print } sub b { local ( $_ ) = @_; goto &a } b("Hi\n");
sub a { print } sub b { local ( $_ ) = @_; a(@_) } b("Hi\n");