print "Make rus captions(y/n)?: ";
  my $prompt1 = <STDIN>;
  chomp $prompt1;
  if ( $prompt1 eq ( "y" | "Y" ) ) {
    ## delete existing files
    foreach my $child ( $vars{rus_captions}->children ) {

      my $success = $child->remove;
      say "success deleting was $success";
    }
    my $ref_cap = make_russian_captions($rvars);
  }