# assume filename - search path, open and return its contents
sub lexicon_get_ {
    my ( $class, $src, $caller, $lang ) = @_;
    $src = $class->lexicon_find( $src, $caller, $lang );
    defined $src or die 'next';

    require FileHandle;
    my $fh = FileHandle->new;
    $fh->open($src) or die "Cannot read $src (called by $caller): $!";
    binmode($fh);
    return <$fh>;
}