# Prepend $pwd as necessary
@p=();
foreach (split("/", $path)) {
  pop @p, next if $_ eq '..';
  next if $_ eq '.';
  push @p, $_;
}
$path=join("/", @p);