@path = split(/\\/, $0);
  pop(@path);
  $path = join('\\', @path);