seek( DATA, 0, 1 ) if @ARGV;
foreach my $i (1..2) {
    _spawn($i);
    sleep 1;
}
sleep 4;

sub _spawn
{
    my $id = shift || die "Missing id\n";

    my $pid = fork();
    defined $pid or die "bad open (pipe/fork): $!\n";

    # Have parent/child run their respective code...
    if ( $pid ) {
        # PARENT CODE...
        return;
    } else {
        # CHILD CODE...
        print "CHILD$id: My pid = $$\n" ;

        while(<DATA>) { print "CHILD$id: $_"; sleep 3 };
        exit
    }
}

__DATA__
1: THIS IS YOUR PARENT SPEAKING...
2: THIS IS YOUR PARENT SPEAKING...