use strict;
use warnings;
use feature qw( say );

use Inline C => <<'__EOI__';

IV get_interpreter_id() {
   return (IV)PERL_GET_THX;
}

__EOI__

say get_interpreter_id();