sub testSub
{
    my $test_var = shift;

    $$test_var = "Hello!;)\n";

    return 1;
}

##</code><code>##

int
testSub(const char** test_var)
    CODE:
    ...