親子プロセス間のシグナルの送り方についての質問です
cygwin で動いたけどActivePerl 5.8.8だとだめでした
'a'をキーインするとプログラムそのものが終了します
これってActivePerlの仕様でしょうか？

$SIG{ALRM} = \&handler;
$ppid = $$;
##alarm(5);
if( $childpid = fork() ){
　#親プロセス
　#-- 受信
　print "親 $$ \n";
　while(1){
　　sleep;
　　print "AHAHA\n";
　}
} else {
　#子プロセス
　print "子 \n";
　print $$,"\n";
　while(<STDIN>){
　　if( /a/ ){
　　　$x =kill('ALRM',$ppid);
#　　exit;
　　}
　}
}

sub handler{
　print @_[0], "\n";
}