use warnings;
use strict;

use Inline ('C' => 'DATA');

callback();

sub p_callback {
    print "in perl callback\n";
}

__DATA__
__C__


void callback(){
    dSP;
    PUSHMARK(SP);
    call_pv("p_callback", G_DISCARD|G_NOARGS);
}