<?
    my $player_count = $EQW->CountPlayers();
    print "{";
    print "\"player_count\" : " . $player_count;
    print "}";
?>