sub q3msg 
{
    my ($host, $port, $timeout, $msg) = @_;

    my $iaddr = gethostbyname(hostname());
    my $sin = sockaddr_in(0, $iaddr);
    socket(SOCK, PF_INET, SOCK_DGRAM, getprotobyname('udp')) or die "s
+ocket: $!\n";
    bind(SOCK, $sin) or die "bind: $!\n";

    my $hisaddr = inet_aton($host) or die "unknown host \"$host\"\n";
    my $srvaddr = sockaddr_in($port, $hisaddr);
    defined(send(SOCK, chr(255) x 4 . $msg, 0, $srvaddr)) or die "send
+: $!\n";

    my ($rin, $rout);
    $rin = "";
    vec($rin, fileno(SOCK), 1) = 1;
    if (select($rout=$rin, undef, undef, $timeout))
    {
    recv(SOCK, $_, 65507, 0) or die "recv: $!\n";
    s/\033.//g;
    my @response = split /^/m;
    shift @response;
    return \@response;
    }
    else
    {
    return undef;
    }
}
[download]