Select Code to Download

print my $cgi->escapeHTML( $tags); # should be $query not $cgi
print $query->escapeHTML( $tags );

use CGI;

...

use Data::Dumper;
print $query->escapeHTML(Dumper(\%form));