Profiling no DB Perl