A Perl code profiler