sub newDir {
  my $dir = shift;
  my $oldroot = shift;
  my $newroot = shift;
  my $newdir = $dir;

  # replace old root dir with new one and create new dir
  $newdir = $dir;
  $newdir =~ s/$oldroot/$newroot/;
  mkdir $newdir;
}