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

use Inline C =><<'EOC';

void foo(SV * buffer) {
  char *data = "Hello there";
  sv_setpv(buffer, data);
}

EOC

my $buffer = 'z' x 60;
Dump $buffer;
foo($buffer);
Dump $buffer;