#!/usr/bin/perl -w
use strict;
use CGI;
my $q = new CGI;
print $q->header;
print "<pre>\n";
print $_, "=", $q->param($_), "\n" for $q->param;
print "\n</pre>\n";

##</code><code>##

foo=bar
amp=
baz=

##</code><code>##

http://electra.igd.fhg.de/cgi-bin/test3.pl?foo=bar&amp;baz

##</code><code>##

foo=bar&baz