#!/usr/bin/perl -w

use strict;
use CGI;
use URI::Escape;

my $query = new CGI;

my $plus;

$plus .= "$_=".uri_escape($query->param($_)).";" foreach ($query->param());

if($ENV{REQUEST_URI}=~/^[^?]*\?(.*)/){
  $plus.=$1;
}
$query = new CGI ($plus);

my %data = $query->Vars();

print $query->header; #print HTTP header

while (my ($key, $value) = each %data){
  print "<br>$key--$value\n";
}

print qq(
  <form method=post action=test.cgi?test=foo>
  <input name=bar>
  <input type=submit>
  </form>
);