Select Code to Download

sub writeUnicode($$)
 {my ($f, $s) = @_;

  if ($f =~ /\A(.+[\\\/])/)
   {my $d = $1;
    makePath($d);
   }

  say {$F} $s;