%hash = $query->Vars();
foreach $key (keys %hash) {
     print "<br> $key -> $hash{$key}\n";
}