But it does work for Babelfish. Using Lingua::Translate:

#!/usr/bin/perl

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

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

my $english  = "perlmonks is the best site for Perl!"
my $german = $x18r->translate($english);
print $german, "\n";
[download]