socket如何捕获错误代码?

socket如何捕获错误代码?

socket如何捕获错误代码?
有时候使用socket的perl会出现如下错误,但我不希望程序中断,请教高手如何捕获错误代码而让程序自己处理?
Bad arg length for Socket::pack_sockaddr_in, length is 0, should be 4 at D:/usr/
lib/Socket.pm line 373.
eval{}.
eval{}
老大,不懂怎么用.......