simple socket error

From: Christian Stalp (stalp_at_imbei.uni-mainz.de)
Date: 09/27/04 

To: beginners@perl.org
Date: Mon, 27 Sep 2004 12:55:11 +0200

Hello together,
I just tryed to setup a socket-based connection server, which wait for a
call. But I allways get the message: "IO::Socket::INET: Socket type not
supported".

This is the code as simple as posible:

#!/usr/bin/perl

use IO::Socket;

my $server_port = 345;

$server = IO::Socket::INET-> new ( LocalPort => $server_port,
                                   Type => SOCK_STRAEM,
                                Reuse => 1,
                                   Listen => SOMAXCONN )
 or die "TCP-connection failed ! $@\n";

while ( $client = $server->accept () )
{
}

__END_

I tryed also with other portnumbers and with "Listen => 10" but I allways get
this answer. My IP-Stack is okay, Im connected in the Network and everthing
looks fine. What's the matter?

Gruss Christian 

-- 
Christian Stalp
Institut für Medizinische Biometrie, Epidemiologie und Informatik (IMBEI)
Obere Zahlbacher Straße 69
55131 Mainz
Tel.: 06131/ 17-6852
E-Mail: stalp@imbei.uni-mainz.de
Internet: www.imbei.de