sub print_it {print "\n"};
my $SIG{INT}=\&print_it;
....
else {
    #parent
    sleep (2);
    kill INT=>$pid;
    waitpid ($pid,0);

 
}