#!/usr/bin/perl
use Socket;
socket(SERVER,PF_INET,SOCK_STREAM, getprotobyname('tcp'));
setsockopt(SERVER, SOL_SOCKET,SO_RUSEADDR, 1);
$my_addr=sockaddr_in($server_port,INADDR_ANY);
bind(SERVER,$my_addr) or die "Could not bind to port $server_port :$!\n";
listen(SERVER, SOMAXCONN) or die "could not listen on port $server_port:$!\n";
while(accept(CLIENT, SERVER))
{
  print"this is suman \n";
}

close(SERVER);