菜鸟求救：怎么终止管道？

yfreedom

#!/usr/bin/perl

pipe(INPUT,OUTPUT);

$result=fork();
if($result != 0)
     {
       print("Enter a line of input:\n");

       while($Line=<>)
              {
                 print OUTPUT $line;
              }
     }

else{
      while($line=<>)
          {
                 if ($line eq "bye\n")
                 {
                     print "game over\n";
                     exit(0);  #应该怎么写才能同时终止这两个进程？？
                 }
                 print "repeat :".$line;
           }
}

程序运行如下：
[root@freedom ~]# ./temp
Enter a line of input:
hello world
repeat :hello world
this is a dog.
repeat :this is a dog.
bye
game over

[root@freedom ~]#

在输入bye以后显示了game over 但是我得CTRL+c才能停止程序，我想终止这个管道，应该使用哪个命令阿？？请指教