#!/usr/bin/perl

use Inline C => <<'EOC';

void show(SV* index) {
    PerlIO_printf(PerlIO_stdout(), "%d\n", SvIOK(index));
    PerlIO_printf(PerlIO_stdout(), "%d\n", SvIV(index));
}

EOC

show("123456");

##</code><code>##

0
123456