Select Code to Download

>perl -MTime::HiRes=time -MInline=C,"void foo(){}" -wE"$t=time;foo()fo
+r 1..1e8;say time-$t"
11.0136189460754

>perl -MTime::HiRes=time -wE"$t=time;sub foo(){}foo()for 1..1e8;say ti
+me-$t"
5.39761018753052

>perl -MTime::HiRes=time -MInline=C,"void foo(){}" -wE"$t=time;foo()fo
+r 1..1e8;say time-$t"
10.4052181243896

>perl -MTime::HiRes=time -wE"$t=time;sub foo(){}foo()for 1..1e8;say ti
+me-$t"
5.58481001853943

>perl -MTime::HiRes=time -MInline=C,"void foo(){}" -wE"$t=time;foo()fo
+r 1..1e8;say time-$t"
4.92960906028748

>perl -MTime::HiRes=time -wE"$t=time;sub foo(){}foo()for 1..1e8;say ti
+me-$t"
7.65961289405823