#!/usr/bin/perl

use Socket;
 $SOMAXCONN=2;


socket(SERVER, AF_INET, SOCK_STREAM, getprotobyname('tcp')) || die "cant create socket $!";
setsockopt(SERVER,SOL_SOCKET,SO_REUSEADDR,1) || warn "cant make socket reusable\n";
bind(SERVER, sockaddr_in(8850, INADDR_ANY)) || die "cant bind IP to socket $!";;
listen(SERVER, SOMAXCONN) || die "cant listen on port $!";;
 print "server PID $$ is listening\n";
 
while(){


$REMOT_ADDR=accept(CLIENT, SERVER);

# after connection

($R_port,$R_addr)=sockaddr_in($REMOT_ADDR);
$R_addr=inet_ntoa($R_addr);
 print "connection from $R_addr on $R_port\n";

}