You might consider changing your :

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

to:

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

for a spot of maintainer efficiency :)

/J\