Select Code to Download

   
use strict;
use CGI;
...

$cgi = new CGI;
%IN = $cgi->Vars; #%IN = (param1 => value1, param2 => value2 , etc..);

if (defined $IN{location}) {
   $where .= "AND (location = '$IN{location}[0]'";
   for my $i (@{$IN{location}}) { $where .= "$i" };
   $where = "$where)";
}

delete $IN{somekey};
...
$sql = "$function $tablename ($key_string) values ($value_string)";
$sth = $dbh->prepare($sql);
$sth->execute();