http://www.perlmonks.org?node_id=576780


in reply to Re: Winsock connect problem in perl!!!
in thread Winsock connect problem in perl!!!

Fortunately this answer was lifted from the same site madtoperl lifted the question from.

However, that user was anonymous, and I suppose could be jesuashok.



--chargrill 
s**lil*;  $*=join'',sort split q**;  s;.*;grr; &&s+(.(.)).+$2$1+; $; =
qq-$_-;s,.*,ahc,;$,.=chop for split q,,,reverse;print for($,,$;,$*,$/)

[download]

In Section Seekers of Perl Wisdom