>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