#!/usr/bin/perl
use strict;
use warnings;
use CGI qw(:standard);
use CGI::Pretty;
use CGI::Carp qw(fatalsToBrowser);
use DBI;

my $q = new CGI;