#! /usr/bin/perl

$| = 1;

use strict;
use warnings;

my $pid = fork();

if($pid == 0){
   # Hier bin ich im Child-Prozess    
   while(1){
     my $time=time;
     system("cls");
     print($time);
     sleep 1;
   }
}
else{
   # Hier bin ich im Parent-Prozess
   while(my $input = <STDIN>){
     chomp $input;
     if($input eq 'q'){
       kill 9,$pid;
     }
   }
}