#!/usr/bin/perl 

use v5.030;    # strictness implied
use warnings;
use Path::Tiny;
use HTTP::Tiny;
use JSON::MaybeXS;


my $file_in  = path("/home/fritz/Desktop/1.enchanto.txt");
my $file_out = path('/home/fritz/Desktop/1.enc_trans.txt');
my $lang     = 'es';

my $guts = $file_in->slurp_utf8;
my @spl  = split( '\n', $guts );

my $ua = HTTP::Tiny->new( 'verify_SSL' => '1' );

for my $para (@spl) {

  say $para;

  my $payload    = "text=$para&target_lang=$lang";
  my $payloadlen = length($payload);

  my $response = $ua->request(
    'POST' => 'https://api-free.deepl.com/v2/translate',
    {
      headers => {
        'Authorization' =>
          'DeepL-Auth-Key redacted',
        'Content-Length' => $payloadlen,
        'Accept'         => '*/*',
        'Content-Type'   => 'application/x-www-form-urlencoded',
        'User-Agent'     => 'curl/7.55.1'
      },
      content => $payload,
    },
  );

  die "Failed!\n" unless $response->{success};
  print $response->{content} if length $response->{content};
  my $content = $response->{content};
  say "content is $content";
  my $data = decode_json($content);
  say "data is $data";
  $file_out->spew_utf8( $para, $data );
}
__END__