#!/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); } }