|This Perl module allows you to write forks like:
#optional for handling non-recoverable errors
You use Fork if you want each process to terminate after its block, or DumbFork if you don't.
I'm not including the pod documentation, as it adds another hundred lines or so to the bottom of the script. If you want the source, including pod, e-mail me.
If nothing else, see it as a creative use of an anonymous hash.
Currently the only problem I have with it is that it doesn't croak if you forget the Parent or Child blocks, but I think that's pretty minor.