my $sock = new IO::Socket::INET (
   PeerAddr => 'localhost',
   PeerPort => $remote_port,  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 );