请教Perl高手，如何保持Socket连接不掉线

我有一个小应用，用Perl写的，一个Server端，一个Client端，都是Perl，网上能找到的示例代码都是动不动就Die掉的，但我不想程序死掉，我想的是一直保持连线，如果中途出现意外，可以重新连接，重新发起请求，如果掉线，则每隔5秒请求一次，直到重新连接上。请问各位高手，有没有这方面的代码可以参考？
万分感激。

直接 die 掉是懒，不是说不能。检测返回值好好处理而不是直接 die，设置好 signal 不就行了？