...
use Inline "C";
Inline->init;

1;

__DATA__
__C__
...