#!/usr/bin/perl
use strict;
use warnings;

use Data::Dumper qw/Dumper/;
use WWW::LEO;

while (1) {
    print "Word: ";
    chomp(my $text = <STDIN>);
    last if ($text eq 'q');
    translate($text);
} 

sub translate {
  my $text = shift;
  my $leo = WWW::LEO->new();
  $leo->query($text);
  if ($leo->num_results) {
    print Dumper $leo->en_de();
  } else {
    print "Sorry, your query for '%s'gave no results.\n", $leo->query;}
    print "$leo\n";
}