#!/usr/bin/perl -l

use strict;
use warnings;
use Lingua::Translate;

Lingua::Translate::config( ua => LWP::UserAgent->new() );

my $x18r = Lingua::Translate->new(
    src  => "de", 
    dest => "en")
      or die "No translation server available for de -> en";

my $englisch  = "Zu verstehen Englisch, benutzen Sie dies.";
print $x18r->translate($englisch);