#! perl -slw
use strict;
use Inline 'NoClean', 'FORCE', 'INFO' ;
use Inline Config => WARNINGS => 4;
use Inline 'C' => 'DATA', NAME =>'test';


sub calledBack{ print "calledBack with: @_"; }

setCallback( \&calledBack );

callback();

__DATA__
__C__

SV* g_callback = 0;

int setCallback ( SV*code ) {
    g_callback = code;
    return 0;
}

int callback () {
    call_sv( g_callback, G_VOID );
    return 0;
}


##</code><code>##

P:\test>test
<-----------------------Information Section----------------------------------->

Information about the processing of your Inline C code:

Your source code needs to be compiled. I'll use this build directory:
P:\test\_Inline\build\test

and I'll install the executable as:
P:\test\_Inline\lib\auto\test\test.dll

The following Inline C function(s) have been successfully bound to Perl:
        int callback()
        int setCallback(SV * code)

<-----------------------End of Information Section---------------------------->
Use of uninitialized value in null operation at P:\test\test.pl line 12.
Use of inherited AUTOLOAD for non-method main::() is deprecated at P:\test\test.pl line 12.
Use of uninitialized value in substitution (s///) at c:/Perl/lib/AutoLoader.pm line 40.
Use of uninitialized value in concatenation (.) or string at c:/Perl/lib/AutoLoader.pm line 41.
Can't locate auto/main/.al in @INC (@INC contains: 
P:\test\_Inline\lib c:/Perl/lib c:/Perl/site/lib .) at P:\test\test.pl line 12