# CodeSamples.pm
package CodeSamples;

our $ctext = <<'CTEXT';
#include <stdio.h>
int main()
{
    printf("hello world\n");
    return 0;
}
CTEXT

our $perltext = <<'PTEXT';
my $query = qq{SELECT mycol, COUNT(*)
    FROM mytable WHERE mycol <= 10 GROUP BY mycol};
print $$_,$/ for @{ $dbh->selectcol_arrayref($query) };
# Notice that $query has nested SQL syntax
PTEXT
1;