такая вот програмка на перле:
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.
странно - модуль соккет то установлен с этой функцией.
или дело в чем то другом?