for my $file (@texts) {

  local $/ = "";
  open my $fh, '<:crlf', $file or die;
  my $base_name = path("$file")->basename;
  my $out_file = path( $out_dir, $base_name )->touchpath;
  say "out_file is $out_file";

  ## time it
  use Benchmark;
  my $t0 = Benchmark->new;

  while (<$fh>) {

    print "New Paragraph: $_";
    my $r = get_trans( $wgt, $_ );
    for my $trans_rh ( @{ $r->{data}->{translations} } ) {
      my $result = $trans_rh->{translatedText};
      say "result is $result ";
      my @lines = split /\n/, $result;
      push @lines, "\n";
      path("$out_file")->append_utf8(@lines);
      sleep(1);
    }

  }
  my $t1 = Benchmark->new;

  my $td = timediff( $t1, $t0 );
  print "$file took:", timestr($td), "\n";
  sleep(3);

  close $fh;