Select Code to Download

Layer does not match this perl at C:/perl32/lib/IO/Socket.pm line 80, 
+<> line 1.

    socket($sock,$domain,$type,$protocol) or
        return undef;

828831.pl:9 Layer 1 is crlf
828831.pl:9 openn(crlf,'(Null)','rb',-1,0,0,00000000,1,0140F5C8)
...
C:/perl32/lib/IO/Socket.pm:80 Layer 0 is unix
C:/perl32/lib/IO/Socket.pm:80 Layer 0 is unix
828831.pl:0 Destruct 0344D834