>perl -MTime::HiRes=time -MInline=C,"void foo(){}" -wE"$t=time;foo()for 1..1e8;say time-$t"
11.0136189460754
>perl -MTime::HiRes=time -wE"$t=time;sub foo(){}foo()for 1..1e8;say time-$t"
5.39761018753052
####
>perl -MTime::HiRes=time -MInline=C,"void foo(){}" -wE"$t=time;foo()for 1..1e8;say time-$t"
10.4052181243896
>perl -MTime::HiRes=time -wE"$t=time;sub foo(){}foo()for 1..1e8;say time-$t"
5.58481001853943
##
##
>perl -MTime::HiRes=time -MInline=C,"void foo(){}" -wE"$t=time;foo()for 1..1e8;say time-$t"
4.92960906028748
>perl -MTime::HiRes=time -wE"$t=time;sub foo(){}foo()for 1..1e8;say time-$t"
7.65961289405823