#!perl -w use Foo; use Inline C => <<'END_OF_C_CODE'; int foo2() { int x = 1234567890; return x; } END_OF_C_CODE print "All compiled\n";