# NOTE: I have already prepended pwd if needed

#remove .
while( $path =~ m#/\./# ) {
    $path =~ s#/\.#/#;
}

# remove ..
while( $path =~ m#/[^/]+?/\.\./# ) {
    $path =~ s#/[^/]+?/\.\.#/#;
}


##</code><code>##

#remove .
while ( $path =~ s#/\./#/# ) {;}

#remove ..
while ( $path =~ s#/[^/]+?/\.\./#/# ) {;}

##</code><code>##

while ( $path =~ s#(/[^/]+)?/\.(\.)?/defined($2) ? "/" : "$1/"/e ) {;}

##</code><code>##

unless ( chdir $path ) {
  die "Couldn't there ($path) from here\n";
}
return `pwd`;