Pacific-Design.com

# Add debug after every Perl subroutine
function adddebug()
{
  sed -i '/^sub/ a\open(FILE,">>/tmp/kevin.txt"); 
  print FILE __LINE__ . ":" . (caller(0))[3] . "\\n"; 
  close(FILE);' $1  
}