#!/usr/local/bin/perl
use strict;
use warnings;

use Inline C => <<'END_OF_C_CODE';
SV * get_string() {
    char string[] = "test";
    SV *result = newSVpv(string, 0);
    return result;
}
END_OF_C_CODE

my $string = get_string();
print $string;