Select Code to Download

use File::Spec::Unix ();

...
   s#^[^/]+/\.\.$#.#g;
   return $_;
}

printf("%-20s -> %-20s\n", $_, remove_dot_dot($_))
   foreach (qw(
...
/foo/bar/../..       -> /
/foo/bar/../../moo   -> /moo
/var/log/../../home/poletti/../../etc/passwd -> /etc/passwd