To get the server's response, recv.

The Perl Cookbook has good examples of using sockets.

As a side note, why is the recv() subroutine set up so strangely? Passing the variable that will hold what the function returns reminds me of PHP and its "forced references". Wouldn't this code be much more intuitive and Perlish?

$reponse = $socket->recv($length, $flags);

And for that matter, how is this even done? I would think you'd at least need the name of the variable to set it from another package. Isn't passing an uninitialized variable the same as passing an empty string? I'm all confused, perhaps someone could explain what I think are the relevant bits of recv() in IO::Socket:

my $sock  = $_[0];
${*$sock}{'io_socket_peername'} = recv($sock, $_[1]='', $len, $flags);
[download]

After reading the nicely documented code examples, you will understand the terminology used in the Sockets and Select modules, and see why they are so much better to use. See stream info from udp stream on port xx and dump it into syslog and UDP bidirectional client for ideas.

use IO::Socket::INET;

my $socket = IO::Socket::INET->new(
    'PeerAddr' => '192.168.1.100',
    'PeerPort' => 29900,
    'Proto'    => 'udp',
    'Timeout' => 15
);
$socket->autoflush(1);
$socket->send($query);
$socket->recv(my $response, 1024 * 5);
print $response;
[download]