print "what's the mem doing?\n"; sleep(10); $fm->finish(); } $fm->wait_all_children();