sub make_initial_captions {
  use 5.016;
  use warnings;
  use POSIX;
  use Path::Tiny;
  use Encode;
  use open OUT => ':encoding(UTF-8)', ':std';
  use Data::Dumper;

  my $rvars = shift;
  my %vars  = %$rvars;

  print Dumper $rvars;

  my $image_path   = $vars{"to_images"};
  my $caption_path = $vars{"eng_captions"};
  return "nothing yet";
}