Select Code to Download

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

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

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

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