print $q->header,start_html," @names $action $time $date filet = $filet",end_html;

##</code><code>##

print $q->header,start_html, $sr->{action}, $sr->{time};
# etc.

##</code><code>##

my @choice = grep /go_/, $q->param;

##</code><code>##

my %choice = map {$_ => $q->param($_)} grep /go_/, $q->param();