Select Code to Download

  my $doc = $parser->parsefile("$srcdir/$_");
  my $output = $parser->toString;
  open(my $out, ">:utf8", "$dstdir/$_") or die "...";
  print $out $output;
  close($out);