Select Code to Download

use CGI;

...
# so the output won't be interpreted as HTML
print $q->header('text/plain');
print "$_ = '", $q->param($_), "'\n" for $q->params;