#!/usr/bin/perl
#
# script para verificar o newFromDb
#
#
#
#
#


use Lingua::BiTerm;
use Data::Dumper;
$file=shift;

$a=newFromDB Lingua::BiTerm($file);
print "palavra:";
while(<>)
{
	chomp $_;
	$aa=$a->grepDB($_);
	print "------------------\n";
	print $aa;
	print "------------------\n";
	print "palavra:";
}