perl -MBenchmark -e 'timethis (1000000, sub { print "Test" } );'