sub perlify {
    <<EOS;
use Inline C => <<'EOC';
@_
EOC
main();
EOS
}