# 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]);