use Inline C => Config => BUILD_NOISY => 1; use Inline C => << 'EOC'; void inc_refcnt(SV * sv ) { SvREFCNT_inc(sv); } SV * get_refcnt(SV * sv) { return newSVuv(svREFCNT(sv)); } EOC my $globalVAR = 1; my $refCNT; if ( 1 ) { $refCNT = get_refcnt($globalVAR); $globalVAR++; inc_refcnt($globalVAR); $refCNT = get_refcnt($globalVAR); } else { die; } #### /tmp/ccPL0xed.s: Assembler messages: /tmp/ccPL0xed.s:10: Error: `8(%rdi)' is not a valid 32 bit base/index expression /tmp/ccPL0xed.s:25: Error: suffix or operands invalid for `movslq' /tmp/ccPL0xed.s:43: Error: `8(%rsp)' is not a valid 32 bit base/index expression