Select Code to Download

$ perl -d:FastProf myscript.pl
$ fprofpp fastprof.out > fast_profiler_report.txt

# Benchmark
use Benchmark;
...
$_t[2] = new Benchmark;
$_t[0] = timediff($_t[2], $_t[1]);
print "$0 took: ". timestr($_t[0]);