CatalystX-Profile is a project mainly written in Perl, it's free.

Profile Catalyst applications with Devel::NYTProf