请教关于fork的问题

请教关于fork的问题

由于赶任务,perl教程没有看完就开始写代码,请高手给一个fork()中wait()  waitpid()的例子,谢谢!
perldoc -f waitpid