怎么ctrl c终止子进程的同时终止父进程

laoyanwei

编了一个mplayer 放目录下所有文件的perl程序
现在是想问一下怎么推出父程序,ctrl+c只能退出一个ｍｐｌａｙｅｒ子程序
#!/usr/bin/perl
@all=@ARGV;
foreach $filename(@all){
        if(-d $filename){
        Readfilename($filename);
        }else{
        chomp($pwdfn=`pwd`);
        $filename=$pwdfn."/".$filename;
        @allfile=(@allfile,$filename);
        }
        }
foreach $filename(@allfile){
        $_=$filename;
        s/ /\\ /g;
        system "mplayer $_ ";#######这部怎么让ctrl+c终止时同时终止父进程
        }

sub Readfilename{
    my($abc);
    my($filename2);
    my($n);
    my($pwdfile);
    opendir($abc,$_[0])||die "can't open $_[0]";
    chdir($_[0]);
    while($filename2=readdir($abc)){
    if(-d $filename2){
      if(($filename2 ne ".")&&($filename2 ne "..")){
        Readfilename($filename2);
        }
   }else{
      chomp($pwdfile=`pwd`);
      $filename2=$pwdfile."/".$filename2;
      @allfile=(@allfile,$filename2);}
      close($_[0]);
   }
   chdir("..");
}