#!/usr/bin/perl
use HTML::Template::Pro;
use strict;
use warnings;
use C4::Record;
use C4::Auth;
# Suite 330, Boston, MA 02111-1307 USA
use CGI;
use Encode qw(encode);
-