#!/usr/bin/perl

use Inline C;

use strict;
use warnings;

print mkstr() . "\n";

__END__
__C__

SV* mkstr() {
	return newSVpv("This is another string!", 0);
}