use IO::Socket; my $SrvSaraPort = "10.180.19.19"; my $SrvSaraPort = "9001"; $server = IO::Socket::INET->new(Proto => 'tcp', LocalPort => $SrvSaraPort, Listen => SOMAXCONN, Reuse => 1); while($client = $server->accept()) { $client->autoflush(1); next unless $client->peerhost eq $SrvMonicaAddr; my $RcvString = <$client>; print $client "OK"; } close $client