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;
}