use IO::Socket;


# $SearchString = "find"."##"."b".","."0"."##"."IMEI"."##"."MILLIONAIRE"."##"."1.0"."##"."paris"."##"."JAVAVERSION"."##"."HandyModell"."##"."PROVIDER"."\r\n";

$SearchString = "7d6ea34349a1d75c6531ddf39aab5b59##0123456789abcdef0123456789abcdef##8b9d2b5c0b67704be5a53c1810c5ced8d05b0e024a01868c82ef4adfebe021b694d7d781ba2c886a6de65d30b58cae04144d060a978c87c93364972e76c10f7375f8cc3a13935ca78a9efa6ac3a45518";

$socket = IO::Socket::INET->new(PeerAddr => "87.106.63.182",
                                PeerPort => 7773,
                                Proto    => "tcp",
                                Type     => SOCK_STREAM)
    or die "Couldn't connect to $remote_host:$remote_port : $@\n";

# ... do something with the socket
print $socket $SearchString;

$answer = <$socket>;
$answer = <$socket>;
$answer = <$socket>;

print "ANWSER=$answer\n";
# and terminate the connection when we're done
close($socket);