use IO::Socket;
 my $sock = new IO::Socket::INET (
                                  LocalHost => '168.159.250.206',
                                  LocalPort => '5988',
                                  Proto => 'tcp',
                                  Listen => 500,
                                 Reuse => 1,
                                 );
 $sock->sockopt(SO_RCVBUF, 1500);
 die "Could not create socket: $!\n" unless $sock;
 
    
  my $new_sock = $sock->accept();
  my $a = "";
  
 while(<$new_sock>) {
        $new_sock->autoflush(1);
          print  $_;
          
          $a = $a.$_;
         
        
 }
 print "a is $a";
#close($sock);