Perl : Sys::AlarmCall 设置事件超时

来源：perlfaq8-如何讓一個緩慢的事件過時？

参考：Signals

用 alarm() 函数，或 Sys::AlarmCall

use Sys::AlarmCall;

$result = alarm_call($timeout1,$func1,@args1);

@result = alarm_call($timeout2,$func2,@args2);