package Foo;

use Inline C => <<'END_OF_C_CODE';

double * foo() {
  double a = 123.456, *x;
  x = &a;
  return x;
}

END_OF_C_CODE

1;

##</code><code>##

#!perl -w
use Foo;

use Inline C => <<'END_OF_C_CODE';

int foo2() {
    int x = 1234567890;
    return x;
}

END_OF_C_CODE

print "All compiled\n";

##</code><code>##

D:\pscrpt\inline>perl test.pl
Warning. No Inline C functions bound to Perl
Check your C function definition(s) for Inline compatibility

All compiled