On architectures that support it, you can assign to $0 to change the message visible in a ps. Coupling that with one of the process modules to extract the info, and maybe with a debugging hook in the child to update the value on statement boundaries, you might have a complete system there. But that's a bunch of "ifs". :)

-- Randal L. Schwartz, Perl hacker
Be sure to read my standard disclaimer if this is a reply.