Select Code to Download

use CGI::Simple;
use Data::Dumper;
...

print $q->header('text/plain');
print Dumper(\%input, \%ENV, \$q);