                   #!/usr/bin/perl -w
 use IO::Socket;
 use Net::hostent;              # for OO version of gethostbyaddr
 $PORT = 9000;                  # pick something not in use
 $server = IO::Socket::INET->new( Proto     => 'tcp',
                                  LocalPort => $PORT,
                                  Listen    => SOMAXCONN,
                                  );

$EOL = "\015\012";
 $|=1;

 die "can't setup server" unless $server;

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


if ($pid=fork()){
 close $client;
#********** Nothing in parent go back and waite
} else{

close $server;
print $client "Welcome To my server $EOL" ;




while ($inp=<$client>){

print "$inp";
print $client "got your Massage $EOL";
}

$client->close();
}









}

