#!/usr/bin/perl -w
use 5.011;

use WWW::Google::Translate;
use Data::Dumper;
use open OUT => ':utf8';
use Path::Tiny;
use lib ".";
use translate;
binmode STDOUT, 'utf8';

my $ini_path = qw( /home/bob/Documents/html_template_data/3.values.ini );
my $sub_hash = "google";

my $key = get_config($ini_path, $sub_hash);
my $von = get_from_lang();
my $zu = get_to_lang();

my $wgt = WWW::Google::Translate->new(
  {
    key            => $key,
    default_source => $von,    
    default_target => $zu,    
  }
);

my $r = $wgt->translate( { q => 'I wave my private parts at your aunties, you cheesy lot of second hand electric donkey-bottom biters.' } );
my $result = "";
for my $trans_rh ( @{ $r->{data}->{translations} } ) {
  $result = $trans_rh->{translatedText};
  print $trans_rh->{translatedText}, "\n";
}