--- trunk/Makefile.PL	2006/05/14 13:42:59	494
+++ trunk/Makefile.PL	2006/05/14 19:45:16	495
@@ -39,6 +39,7 @@
 	return <<'MAKE_MORE';
 
 HTML_DIR=pod2html
+profile_perl=./run.pl
 
 html: $(TO_INST_PM)
 	test -e $(HTML_DIR) || mkdir $(HTML_DIR)
@@ -66,5 +67,11 @@
 	rm -f log
 	./run.pl
 
+profile:
+	perl -d:DProf $(profile_perl) --limit 500 && dprofpp > profile.`perl -e 'my @p = glob("profile.[0-9]*"); print scalar @p + 1'`
+
+profile2:
+	perl -d:SmallProf $(profile_perl) --limit 100 && sort -k 2nr,2 smallprof.out | vi -R -
+
 MAKE_MORE
 }