Select Code to Download

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

foo=bar
amp=
baz=

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

foo=bar&baz