Select Code to Download

     ntdll.dll!_KiFastSystemCallRet@0()     
     ntdll.dll!_ZwWaitForSingleObject@12()  + 0xc    
...
     mswsock.dll!_WSPGetSockName@16()  + 0x8e    
     ws2_32.dll!_getsockname@12()  + 0x4d    
>    perl510.dll!win32_getsockname(unsigned int s=, sockaddr * addr=, 
+int * addrlen=)  Line 197 + 0x29    C

     ntdll.dll!_KiFastSystemCallRet@0()     
     ntdll.dll!_ZwDeviceIoControlFile@40()  + 0xc    
...
     perl.exe!main(int argc=2, char * * argv=0x00243f08, char * * env=
+0x00242c10)  Line 22 + 0x12    C
     perl.exe!_mainCRTStartup()  + 0xe3    
     kernel32.dll!_BaseProcessStart@4()  + 0x23

Socket.pm, line 246, in IO::Socket::sockname
INET.pm, line 270, in IO::Socket::sockaddr
Daemon.pm, line 42, in HTTP::Daemon::url
Daemon.pm, line 147, in HTTP::Daemon::ClientConn::get_request
httpserverfork.pl, line 24, in main

#!/usr/bin/perl -w

...
     }
     print "fork parent out\n";
}