#!perl
use strict;
use warnings;
use feature qw(:5.12);

use Cwd qw(abs_path);

say abs_path ('/foo') eq abs_path ('/bar/../foo');