my $abs_path = File::Spec->rel2abs('../../temp/', 'c:/WINNT/system32/drivers/etc/');
shorten => while $abs_path =~ s|[^/\\]+[/\\]\.\.[/\\]||;
print $abs_path;