use strict;
 use warnings;
 use WWW::Dict::Leo::Org;
 use Data::Dumper;

 my $leo = new WWW::Dict::Leo::Org();
 my @matches = $leo->translate("test");

 open (OUT, "output.txt");
 binmode(OUT, ":utf8");
 print OUT Dumper(\@matches);
 close OUT;