use strict;
our %GLOBAL;

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

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

1;