The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package IncludeTester;
use strict;

sub print_xs {
  print <<'HERE';

int
sum(a, b)
    int a
    int b
  CODE:
    RETVAL = a + b;
  OUTPUT:
    RETVAL

HERE
}

1;