use Modern::Perl;
use C4::Auth;
use C4::Auth qw( get_template_and_user );
use C4::Context;
use C4::Output;
use C4::Output qw( output_html_with_http_headers );
use CGI qw ( -utf8 );
use JSON;
use Koha::SuggestionEngine;
-