====== Query local MySQL database table from a list of wordforms ======
<code perl>
#!/usr/bin/perl -w
# sends words in a file to CroALa MySql table with names forms, reports what was found
# usage (in pipe): perl ambig-local.pl
use strict;
use warnings;
use DBI;

while (my $verbum = <>) {
 	chomp $verbum;
my $dbh = DBI->connect('dbi:mysql:DBNAME','DBUSER','DBPASSWORD')
or die "Connection Error: $DBI::errstr\n";
# mysql instruction forbidden in dokuwiki, see below:
my $sql = "FORBIDDENWORD lemma from croala_lemmadb where forma = '$verbum'";

 my $sth = $dbh->prepare($sql);
 $sth->execute
or die "SQL Error: $DBI::errstr\n";
 	if ($sth->rows != 0) {
            print $verbum, ": EST LEMMA\n";
          } else
          { open LOG, '>>:encoding(UTF-8)', $$ . '-no-local-lemma';
          print LOG $verbum, "\n";
	  }
 }

</code>
FORBIDDENWORD is SELECT