#!/usr/bin/perl

use Inline C => <<'EOC';

void show(int index) {
    PerlIO_printf(PerlIO_stdout(), "%d\n", index);
}

EOC

show(123456);

##</code><code>##

123456