https://github.com/gmatht/joshell/blob/master/scripts/perl2c%2B%2B.pl

#!/usr/bin/perl

my $h = "hello";
my $w = "world";

for (my $i = 0; $i < 3; $i++) {
  print "$h $w \n";
}

my $n = 0;
my $x = 100000000;

for (my $i = 0; $i < $x; $i++) {
  $n++;
}

print "\n";
print "Counted to $n \n";
[download]

perl perl2c++.pl < hw.pl | tee hw.cpp && g++ hw.cpp -o hw.o && time pe
+rl hw.pl && time hw.o
[download]

#include <iostream>

int main(){
//!/usr/bin/perl

std::string h("hello");
std::string w("world");

for (double i=0; i < 3; i++) {
  std::cout << "" << h << " " << w << " \n";
}

double n=0;
double x=100000000;

for (double i=0; i < x; i++) {
  n++;
}

std::cout << "\n";
std::cout << "Counted to " << n << " \n";
return 0;
}
[download]

perl	0m3.213s
c++	0m0.298s