Best way to write a socket server service in win32

[golemwashere]

Hello, I'm having trouble trying to use $server->accept() of IO::Socket module in a compiled service on win32.
I tried both PerlSvc from activestate and Win32::Daemon from Roth.
My simple socket service should just write on a file what gets on a socket.
The .pl and par compiled exe I wrote work great but I have real troubles producing a server out of that.
Could anyone suggest the best way to use server->accept and while ( <$client>) inside a windows service?
Thanks a lot
G

[Jouke]

I think we could really help you better if you showed us the code you tried (or an excerpt), and tell us what went wrong...

[golemwashere]

Yup 8)
For example when I'm using PerlSvc and my startup sub is

sub Startup {



 while(ContinueRun($delay)) {
 
 
  $server = IO::Socket::INET->new(LocalPort => $server_port,
                                  Type      => SOCK_STREAM,
                                  Reuse     => 1,
                                  Listen    => 10 )   # or SOMAXCONN
      or die "Couldn't be a tcp server on port $server_port : $@\n";
  
  
  while ($client = $server->accept()) {
      # $client is the new connection
  $client->autoflush(1);
  
  while ( <$client>) {
   $line=$_;
   open OUTPUT, ">>$logfile" or die "Cannot open $logfile  :$!";
   print OUTPUT $line;
   close OUTPUT;
   next;
  }
 }

}

the service starts but doesn't bin the socket (while in a standalone .exe it does )
Thanks a lot G.