#!/usr/bin/perl -w
##use strict;
use Inline C;
greet('Content-type:text/html');
greet('Hello from c via CGI');
__END__
__C__
void greet(SV* sv_name) {
printf("%s\n\n", SvPV(sv_name, PL_na));
}

##</code><code>##

Bareword "C" not allowed while "strict subs" in use at c.pl line 3.
BEGIN not safe after errors--compilation aborted at c.pl line 3.