sub handleData {
    my $tid = threads->tid();

    my $fno = $Q->dequeue();
    my $clientAddr = $Q->dequeue();
    next if $fno eq 'STOP';
    my ( $clientPort, $clientIp ) = sockaddr_in( $clientAddr );
    my $ipStr = inet_ntoa( $clientIp );
    open my $socket, '+<&=' . $fno or die $!;
    my $request = <$socket>;
    chomp $request;
    if ($request eq '<policy-file-request/>') {
        warn("($tid) : XML Policy file request from: $ipStr");
        print $socket $content.$NULLBYTE;
    }
    else {
        warn("($tid) : Connection from: $ipStr");
        print $socket "<data><ip>$ipStr</ip></data>".$NULLBYTE;
    }
    shutdown $socket, 2;
    close $socket;
    return 1;
}