Re: C to perl

[educated_foo]

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