http://perl.plover.com/class/Performance/

example code from class