#!/usr/bin/perl -w

use strict;
use warnings;
use diagnostics;

use CGI;
use CGI::Carp qw(fatalsToBrowser);

# rest of script here