#!/usr/bin/perl -w
use strict;
use warnings;
use FindBin qw($Bin);
use lib "$Bin/lib";
use WebDB;
use CGI qw(:standard :html3);
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
use utf8;
binmode(STDOUT, ':utf8');