Ein wenig Arbeit wird von Dir auch verlangt. Ich habe Dir gezeigt, wie Du an das markierte Wort kommst. In der translate-Subroutine musst Du einfach ein Objekt von WWW::Leo erzeugen und dann der Methode "query" das markierte Wort übergeben. Dann musst Du in $Out einfach das Ergebnis von "query" ausgeben und nicht das markierte Wort.