use LWP::UserAgent;
use strict;

  my $ua = LWP::UserAgent->new;
  #my $mymemory_url="http://mymemory.translated.net/api/get?q=Hello World!&langpair=en|it";
  my $req = HTTP::Request->new(GET => 'http://mymemory.translated.net/api/get?q=Hello World!&langpair=en|it');
  my $res = $ua->request($req);
  if ($res->is_success) {
    my $translation= $res->content;
    print "Mymemory: $translation\n";      
  }
  else {
	print "Impossible retrieving from MyMemory\n";
  }