+my $incrurl = $authreq->url_with_query_params
+ ({ counter => [ ($q->param('counter')//0) + 1 ]});
+my $incrurl_esc = escapeHTML($incrurl);
+
+my @critters = qw(sponges worms);
+
+foreach my $make (@critters) {
+ my $param = $q->param("test_cgi_$make");
+ if (!$param) {
+ print "NO-$make\n";
+ } else {
+ $authreq->check_mutate();
+ print "MAKING-$make\n";
+ }
+}
+
+print <<END;
+<h1>info<h1>
+<pre>
+END
+
+my $txt = Data::Dumper->Dump([$authreq->get_username(),