sub Resolve {
    my @stack = $_[0] =~ /^\./ ? split /\/, $ENV{ PWD } : ();
    join '/',
        map { ( $_ eq '..' ) ? pop @stack : ( $_ ne '.' )
          && ( push @stack, $_);  } split /\/, $_[0];
}