#!/opt/exp/bin/perl

use strict;
use warnings;

foreach my $i (1..2) {
	_spawn($i);
}

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: $_" };
		exit
	}
}

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