#!/usr/bin/perl

use Socket;
use IO::Socket::INET;
sub export
{
        $addr = $_[0];
        $port = $_[1];
        $str = $_[2];
        if (substr($str, 0, 1) != "?")
        {
                $str = "?" . $str;
        }
        $query = "\x00\x83" . pack("n",length($str)+6) . "\x00\x00\x00\x00\x00" . $str . "\x00";
        my $sock = new IO::Socket::INET
        (
                PeerAddr => $addr,
                PeerPort => $port,
                Proto => 'tcp'
        );
        die "Could not create socket: $!\n" unless $sock;
        $bytessent = 0;
        while($bytessent < length($query))
        {
                print $sock substr($query,$bytessent);
                $result=<$sock>;
                if(!$result)
                {
                        die "Unable to transfer requested data";
                }
                $bytessent += $result;
        }
        close($sock);
}
export("127.0.0.1",some port,"String to send to server");