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();