use strict;
use warnings;
use Devel::Peek;

my $dd = "hello world\n";
Dump $dd;
my $ee = cc($dd);
printf("the dd string address is %x \n", cc($dd));
dd($ee);
use Inline Config => BUILD_NOISY => 1,
                                       CLEAN_AFTER_BUILD => 0;
use Inline 'C' => <<'CODE';

int dd(UV x){

                printf("string is %s \n", (char*)x);
                return 0;
}
UV cc(SV* a){
return SvPVX(a);
}
CODE
###############output###########
andy@andyhome:~/one-off$ perl abe.pl
SV = PV(0x56386170b050) at 0x56386172f008
  REFCNT = 1
  FLAGS = (POK,IsCOW,pPOK)
  PV = 0x5638617addf0 "hello world\n"\0
  CUR = 12
  LEN = 14
  COW_REFCNT = 1
the dd string address is 5638617addf0
string is hello world