my $params = $cgi->Vars; # NOTE: Multivalue parameters NOT allowed!!
print $cgi->header('application/json');
print $cgi->header('application/json; charset=utf-8');
if ($params->{'action'} eq 'add') {
my $sth = $dbh->prepare('INSERT INTO quotes (source, text) VALUES (?, ?);');
-