#!/usr/bin/perl
use strict;
my $k_pid;


die "Can't fork! ($!)" unless defined ($k_pid = fork());

my $i = 1;
my $n = 1;


  if ($k_pid) {
    #parent code
    while (1==1) {
        $n++;
        print "Parent ($i)($n) \n";
        sleep(1);
    }
    kill("TERM" => $k_pid);
    
  } else {
    #child code
    while (1==1) {
        $i++;
        print "Child: ($i)($n)\n";
        sleep(1);
    }

  }