Socket timeout set incorrectly PERL-196