Help for this page

Select Code to Download


  1. or download this
    Timing for 1000000 recursions:
    Mode: return takes sec: 5.55880403518677
    Mode: goto takes sec: 4.51015114784241
    Mode: die takes sec: 1.70386385917664
  2. or download this
    use Time::HiRes qw/time/;

...
  # print $@ if $@;
  print time-$start,"\n";
}