#!/usr/bin/perl

use strict;
use warnings;

$|=1;
my $pid = fork;

die "Cannot fork: $!" unless defined $pid;

unless($pid) {
    print "Child start\n";
    my $end;
    local $SIG{INT} = sub { $end = 1 };
	while(1){
		sleep(1);
		until($end)
		{
			print ".";
			sleep(1);
		}
	}
	exit 0;
}
print "Parent start\n";
for(my $i = 0; ;$i++){
	sleep 1;
	print "*";
	if($i == 10){
		kill INT => $pid;
	}	
}