请教一个问题

请教一个问题
机器用的cygwin, 在cygwin上安装了perl. 现在发现一个问题, 我写了个perl脚本如下:

while (<FILEHANDLE>){
..........................
.........................
systems "perl another_perl_script.pl"; 每个循环都要执行一下当前目录下的另一个perl 程序
........................
.......................
}
为什么我把这个程序(文件名为seq.pl) 写好后, 在bash下执行 "perl seq.pl" 的时候,怎么程序只执行一次循环就退出呢....奇怪死了!!!!!!!!!! 循环的逻辑肯定没有问题啊...

用 require 吧，一样可以执行子程序的，加上 eval 捕捉出错信息。
eval { require mod }; die $@ if $@;
or
eval { systems "perl another_perl_script.pl" }; die $@ if $@;

还有 do 语法----fore.
还有 do 语法

foreach my $file (..)
{
unless ( my $return = do $file )
{
warn 'cant do file' if $@;
warn 'cant run file' unless $return;
}
}

还是不对啊,用eval,没有捕.
还是不对啊,用eval,没有捕捉到出错信息,看起来没有错误啊,但是循环体只执行一次,,到底怎么搞的呢