проблема с модулем соккет (перл)

[zhito]

такая вот програмка на перле:
use Socket;
socket(SERVER, SOL_SOCKET, SO_REUSEADDR,1);
$server_port = "8002";
$my_addr = SockAddr_in($server_port, INADDR_ANY);
bind(SERVER, $my_addr) or die "cant bind to port $server_port : $!\n";
listen(SERVER, SOMAXCONN) or die "cant listen to port $server_port : $!\n";
while (accept(CLIENT, SERVER)){

}
close(SERVER);

выдает такую ошибку:
Undefined subroutine &main::SockAddr_in called at server.bat line 19.

странно - модуль соккет то установлен с этой функцией.
или дело в чем то другом?

 

[Vovochka]

Документация в перле - великая вещь!
и там НЕТ (!!!) никакой функции SockAddr_in, а есть sockaddr_in.

А вообще надо отказваться от Socket и переходить на IO::Socket
Объектно-Ориентированный подход