Select Code to Download

my %form    = (var1   => $q->param('var1'),
               var2   => $q->param('var2'),
               var3   => $q->param('var3'));

  my %form = $q->Vars();