Guck dir mal Module wie Hook::WrapSub an. Dort kannst du zusätzlichen Code vor und nach jedem Subroutinen-Aufruf ausführen lassen.