# 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  
}