Help for this page

Select Code to Download


  1. or download this
    use Time::HiRes qw(time);

...
$t = time;
foo_bar($iterations);
print "# ", time - $t, "\n";
  2. or download this
    # 1.02960205078125
# 1.00135803222656e-005
  3. or download this
    # 1.10760188102722
# 0.0196361541748047