perl -MBenchmark -le '$|++;timethese(10,{one=>sub{print"one"},two=>sub{print"two"}})'