my %args = $cgi->Vars();
for my $item (keys %args) {
   $quoted_args{$item} = $dbh->quote($args{$item}};
}