#!/usr/bin/perl use Inline 'C'; main(); __END__ __C__ int main() { printf("foo\n"); return 0; }