### try.pl ###
use warnings;

use Inline C => Config =>
    # CLEAN_AFTER_BUILD => 0,
    BUILD_NOISY => 1;

use Inline C => <<'EOC';

void foo(FILE * fh, SV* sv, ...) {
     dXSARGS;
     int i, arg;
     printf("%s ", SvPV_nolen(ST(1)));
     for (i = 2; i < items; i++) {
          arg = SvUV(ST(i));
          printf("%d ", arg);
     }
     XSRETURN(0);
}
    
EOC

open($rd, '<', 'try.pl') or die $!;

$fmt = "foobar";

foo($rd, $fmt, 1 .. 5);
print "\n";
foo($rd, $fmt, 21 .. 32);
print "\n";