Das ist allerdings auch mit das Äusserste was man aus der Methode rausholen kann.
Bei mir ist der Link beim Laden jetzt auf ~2,4kB runter.
# save form variables in a previousform variable
foreach my $key (sort keys %$form) {
next unless ref $form->{$key} eq '' && $form->{$key};
# save form variables in a previousform variable
foreach my $key (sort keys %$form) {
next unless ref $form->{$key} eq '' && $form->{$key};
+ next if $key =~ /^select/; # get rid of these stupid select things
# escape ampersands
$form->{$key} =~ s/&/%26/g;
# escape ampersands
$form->{$key} =~ s/&/%26/g;