#!/usr/bin/perl
use strict;
use CGI;
use Inline C => <<CODEEND;
long xl( long i ) {
long c;
for( c=1; c<= i ; c++ ) if( i%c == 0 ) return 0;
return 1;
CODEEND
Inlineはこんな感じで使えるよ。