#!/usr/bin/perl -w

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

require "functions.pl";

# define a hash to contain any "global" objects or variables
our %GLOBAL = (
  'query' => '',
    'test' => 'foobar!'
    );

$GLOBAL{'query'} = new CGI;

print CGI::header();
outputTest();
outputPOST();