use warnings;
use Inline C => <<'END_OF_C_CODE';

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

END_OF_C_CODE

print "Compiled and running\n";
$z = foo();

##</code><code>##

Compiled and running
Use of inherited AUTOLOAD for non-method main::foo() is deprecated at try.pl line 13.
Can't locate auto/main/foo.al in @INC (@INC contains: D:\pscrpt\inline\_Inline\lib D:/perl58_M/5.8.8/lib D:/perl58_M/site/5.8.8/lib D:/perl58_M/site/lib .) at try.pl line 13