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

##</code><code>##

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


##</code><code>##

828831.pl:9 Layer 1 is crlf
828831.pl:9 openn(crlf,'(Null)','rb',-1,0,0,00000000,1,0140F5C8)
828831.pl:9 Layer 0 is unix
828831.pl:9 Layer 0 is unix
828831.pl:9 PerlIO_push f=034589D0 unix rb 0344E1AC
828831.pl:9 5 _is_ a regular file
828831.pl:9 refcnt_inc: fd 5 refcnt=1
828831.pl:9 PerlIO_push f=034589D0 crlf rb 0344E1AC
C:/perl32/lib/attributes.pm:91 refcnt_dec: fd 5 refcnt=0
C:/perl32/lib/attributes.pm:91 PerlIO_pop f=034589D0 crlf
C:/perl32/lib/attributes.pm:91 PerlIO_pop f=034589D0 unix
828831.pl:70 refcnt_dec: fd 4 refcnt=0
828831.pl:70 PerlIO_pop f=034589CC crlf
828831.pl:70 PerlIO_pop f=034589CC unix
C:/perl32/lib/IO/Socket.pm:80 Layer 1 is crlf
C:/perl32/lib/IO/Socket.pm:80 openn(crlf,'(Null)','rb',4,0,0,00000000,0,00000000)
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