use IO::Socket;

my ( $stmp, $nchar );
$| = 1;
my $sock = new IO::Socket::INET (
                                 LocalHost => 'localhost',
                                 LocalPort => '2040',
                                 Proto => 'tcp',
                                 Listen => 1,
                                 Reuse => 1,
                                );
die "Could not create socket: $!\n" unless $sock;

$sock->autoflush();

while( 1 )
{
   my $new_sock = $sock->accept();

   $| = 1;
   $new_sock->autoflush();
   while(1)
   {
      $nchar = read( $new_sock, $stmp, 1 );  
      print "$stmp";
      print $new_sock "$stmp";
   }
}

close($sock);

##</code><code>##

my $sock = new IO::Socket::INET (
   PeerAddr => 'localhost',
   PeerPort => $remote_port,&nbsp; Proto => 'tcp',
);

die "Could not create socket: $!\n" unless $sock;
   $sock->autoflush();

ae_util::mylog( "SendSOCKT: $msg " );

print $sock "$msg\n";

 $stmp = <$sock>;
 chomp $stmp;
 ae_util::mylog( "AnswSOCKT: $stmp " );
 close( $sock );