#!/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));
}