#!/usr/bin/perl

my $i = 0;
my $in;

while( 1 ){
	++$i;
	
	my $pid = fork();
	if ( $pid ){
		$in = <>;
		chomp( $in );
		print "Child: $in\n";
	}
	else{
		print "Parent: $i \n";
		sleep 5;
	}
}