$ctx->set_my_callback(sub {print "callback called\n";my $c = $a+$b; return $c;}); my $count = $ctx->call_perl();