How perl handles an ungraceful socket disconnections is largely a function of how the underlying TCP stack handles it. I don't think you'll get much, if any, better than this.