Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl -w
##use strict;
...
void greet(SV* sv_name) {
printf("%s\n\n", SvPV(sv_name, PL_na));
}

Select or download this

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.