test timeout

test timeout

有类似的函数可以实现诸如:
$m=test(&a,-timeout=>50);
如果在指定时间函数执行完毕$m=1;
否则$m=0;
perldoc -f alarm
win平台上alarm可能有点问题
可以使用win32::process
perldoc -q timeout