forkについて質問させて下さい。
カウントダウンを表示しながら、キー入力を待ち、入力ある無しで分岐してまた戻ってくるものを書いています。
その部分は省いています。

FORK:
print "fork開始\n";
if ($pid = fork) {
　　print "親開始\n";
　　my $count = 0;
　　while (1) {
　　　　sleep (1);
　　　　print + $count ++;
　　　　last if $count > 5;
　　}
　　print "親終了\n";
} elsif (defined $pid) {
　　print "子開始\n";
　　while (<STDIN>) {
　　　　print "入力確認\n";
　　　　last if $_;
　　}
　　print "子終了\n";
}
print "fork終了\n";
goto FORK;

forkを抜けて頭に戻ると「fork開始」で止まってしまいます。
子プロセスを途中で止める方法とか、killも調べたけどよくわからなくて。
よければヒントお願いします。