use Modern::Perl;
use JSON qw( from_json );
use C4::Service;
use C4::ClassSplitRoutine::RegEx;
our ( $query, $response ) = C4::Service->init( parameters => 'parameters_remaining_permissions' );
-