%form = %{$query->Vars};

# perl -MCGI=Vars -e" %a=Vars();print for keys %a " a=b c=d
# perl -MCGI=Vars -e' %a=Vars();print for keys %a ' a=b c=d