Select Code to Download

use strict;
use warnings;
...
foreach(keys %$form) {
   print "$_ = $form->param($_}\n";
}

use strict;
use warnings;
...
foreach(keys %{$form->param}) {
   print "$_ = $form->param($_}\n";
}