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

##</code><code>##

# Benchmark
use Benchmark;
my @_t;

$_t[1] = new Benchmark;

# module/program/subroutine goes here

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