Select Code to Download

my %vars = $q->Vars();#print Dumper %vars;
 $q->delete_all;
print $q ->start_form;
print $q->radio_group(-name=>'options', -values=>[keys %details] ,-col
+umns => 4,
-rows    => 2);

foreach my $s (keys %details)
{print  "<input type=\"radio\" name=\"options\" value=".$s,">".$s."  "
+; 
 }

foreach my $s (@opts)
{print  "<input type=\"radio\" name=\"options\" value=".$s,">".$s."  "
+; 
 }

print $q->radio_group(-name=>'options', -values=>\@opts,columns => 4,-
+rows> 2, -default=>'');