Select Code to Download

    my ($email)    = $dbh->quote($CGI->param('email')    || undef);
    my ($password) = $dbh->quote($CGI->param('password') || undef);

        my $tmp = <<EOF;
SELECT
...
EOF

        my $sth = &return_query($dbh, $tmp);

        my @row = $sth->fetchrow_array;

...

        if (@row) {
            $result{userID}         = $row[0];

   if ($@) {
        push(@{ $result{error} }, $@);
    }

    return encode_json(\%result);