Perl执行系统命令如何设定超时？

my @output = `echo | openssl s_client -connect $server:$port -showcerts 2& 1`;当出现server关机或者端口不可达的时候，perl一直等待这个命令执行，大概20-25秒， 如何设定5秒的超时时间？@output的内容是我想要的，5秒超时的直接跳过。