+#!/usr/bin/perl
#
# grep for expressions in various fields of the dx file
#
use spot;
# initialise spots file
+STDOUT->autoflush(1);
+
+print "reading in spot data ..";
+$t = time;
$count = spot->init();
+$t = time - $t;
+print "done ($t secs)\n";
dbgadd('spot');
print "$count database records read in\n";
-STDOUT->autoflush(1);
-
#loada();
for (;;) {
print "field: ";