use Path::Class qw(dir);
print dir('/tmp/../usr/')->cleanup;
/tmp/../usr