RosettaCodeData/Task/Fork/Perl/fork-2.pl

use Proc::Fork;
run_fork {
    child {
        # child code ...
    }
    parent {
        # parent code ...
    }
};