#!/usr/bin/perl

use Inline C => Config => BUILD_NOISY => 1, CLEAN_AFTER_BUILD => 0;
use Inline C => <<'END_OF_C_CODE';

char* GetImage() {

    char *data = "test-test-test";

    return(data);
}
END_OF_C_CODE


my $data = GetImage();

print "$data\n";    # "test-test-test"