That doesn't display all the parameters, and gives the wrong value for some parameters. Fix:

my %var = $query->Vars;
foreach my $param (keys %var) {
   foreach my $value (split /\0/, $var{$param}) {
      ...
   }
}
[download]