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