Sorry, I replied anonymously, but that is indeed the logmsg subroutine.
sub logmsg {my $FH = $AKUtils::LOG || *STDOUT; print $FH "$0: ".(caller(1))[3].": @_\n";}
Comment on Re^5: Multithreads with an executable in the worker subroutine (fork (probably) won't help)