use strict;
use warnings;

use Inline C => Config =>
    USING => 'ParseRegExp',
    BUILD_NOISY => 1;

use Inline C => <<'EOC';

void c_foo(void) {
 dSP;

 PUSHMARK(SP);
 call_pv("perl_foo", G_DISCARD|G_NOARGS);
}

EOC

c_foo();

sub perl_foo {
            print "PID is $$\n";
}