use Lingua::DE::Wortschatz;
use Data::Dumper;
use utf8;
use encoding 'utf8';

# /usr/lib/perl5/site_perl/5.8.7/Lingua/DE/Wortschatz.pm

my $wort = "haus";
#  my $result=Lingua::DE::Wortschatz::use_service('Sentences','voll');
my $result=Lingua::DE::Wortschatz::use_service('Thesaurus',$wort);
@lines=$result->hashrefs();
my $AdditionSynonymEntryForDatabase = "$wort,";
foreach (@lines) {
	my $syn = $_->{Synonym};
	$AdditionSynonymEntryForDatabase .= "$syn," if ( length $syn >= 4);
};

chop $AdditionSynonymEntryForDatabase;
print "NEW: '$AdditionSynonymEntryForDatabase'\n";

my $tmp	= @lines[ int(rand($#lines)) ];
my $SynReplace	= $tmp->{Synonym};

print "\n$SynReplace\n";
# opensubtitles.org: 2ge@2ge.us