The Devel::CallStack module records the callstacks of subroutines: how many times each callstack was invoked.