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