如何在Perl中终止带有警报的系统命令？

我在 Windows上运行以下代码片段.从客户端读取后,服务器开始连续监听.我希望在一段时间后终止此​​命令.

如果我在main.pl中使用alarm()函数调用,那么它会终止整个Perl程序(这里是main.pl),所以我通过将它放在一个单独的Perl文件中来调用这个system命令
并使用system命令在原始Perl文件中调用此Perl文件(alarm.pl).

但是通过这种方式,我无法在原始Perl文件或被调用的Perl文件中调用此system()的输出.

请问任何人请让我知道终止系统()调用的方式或以我上面使用的方式获取输出？

@H_183_2@main.pl

@H_549_11@my @output = system("alarm.pl"); print"one iperf completed\n"; open FILE,">display.txt" or die $!; print FILE @output_1; close FILE;

alarm.pl

alarm 30;
my @output_1 = readpipe("adb sHell cd /data/app; ./iperf -u -s -p 5001");

open FILE,">display.txt" or die $!; 
print FILE @output_1; 
close FILE;

在这两种方式中,display.txt始终为空.