#!/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();


##</code><code>##

sub outputTest
{
          print $main::GLOBAL{'test'};
}

sub outputPOST
{
          print $main::GLOBAL{'query'}->Vars;
}

1;


##</code><code>##

foobar!


##</code><code>##

foobar!myvarhaha