#!/usr/bin/perl # warning! the DProf module is known to be unstable. Core dumps are likely. open (FH, "-|", "perl -d:DProf plans.cgi"); my @lines = ; close FH; open (FH, "-|", "dprofpp"); my @lines = ; close FH; my $text = join "",@lines; $text =~ s/\n\s{4,}//g; print < Plans Calendar Code Profiler 
$text
This script produces the file tmon.out
p1