Tuna

Tuna is a Perl profiler that runs and analyzes Perl programs to find out where the code spent most of its time. Tuna helps you make decisions about where to focus performance enhancements, and makes it easy to visualize which components are critical.