Select Code to Download

   my %ARGS;
   {
      #Localize @temp since I won't need it later
...
         $ARGS{$_} = $state->{'r'}->param($_);
      }
   }

   my @schedules = $state->{'r'}->param('browseselect');
   return qq~<tr><td>~.Dumper(@schedules).qq~</td></tr>~;

   my %ARGS;
   {
      my @temp = $state->{'r'}->param();
...
         $ARGS{$_} = (scalar(@{ [$state->{'r'}->param($_)] }) > 1 ? [$
+state->{'r'}->param($_)] : $state->{'r'}->param($_)) ;
      }
   }