1.16 Devel::T3 - a profiler

# Simple profiler - count the number of lines

sub DB::DB {
    $DB::mycounter++;
}

END {
   print STDERR "Count: $DB::mycounter\n";
}