my $pid; $pid = fork(); if($pid == 0) { # im Kindprozess exec("perl D:\\privat\\fork\\child.pl"); } else { sleep(3); kill 1,$pid; }