in reply to C to perl

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

[download]

In Section Seekers of Perl Wisdom