I am trying to write a server for a Windows machine that is always listening on a particular port. When the Server accepts a connection it should create a new process and transfer the socket. The parent process should go back to listening. I do this in the following way:
Server: while (1) { while(my $connection = $listen_socket->accept) { SpawnConnection($connection); $connection->close; } } sub SpawnConnection { my $socket = shift; Win32::Process::Create($ProcessObj, "c:\\perl\\bin\\perl.exe", "perl dbserverchild.pl $socket", 0, NORMAL_PRIORITY_CLASS, "."); } In dbserverchild.pl, I get the socket by doing: my $socket = shift(@ARGV); This does not work. My question is, how do I pass a socket from one process to another? I have tried implementing my server using fork, but fork seems to behave unreliably (doesn't always create a child process). Any help would really really be appreciated. Thanks! Neel __________________________________________________ Do you Yahoo!? Faith Hill - Exclusive Performances, Videos & More http://faith.yahoo.com _______________________________________________ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs