#!/Perl/bin/perl

use strict;
use warnings;
use Data::Dumper qw/Dumper/;
use WWW::Leo;

my $leo = WWW::LEO->new();

$leo->query("das meer ist blau");

if ($leo->num_results) {

   print Dumper $leo->en_de();

}else{
    print "Sorry, your query for '%s'gave no results.\n", $leo->query;
}