foreach (split/\//,$gamedir) {
  next if ($_ eq "");
  print "Changing to $_\n";
  chdir($_) or die "error in $_";
}