#!/usr/bin/perl
use strict;
use warnings;

use Cwd 'abs_path';

my $somepath = "/var/log/../../home/poletti/../../etc/passwd";

print "starting path: [$somepath]\n";
print "abs_path     : [", abs_path($somepath), "]\n"

__END__
starting path: [/var/log/../../home/poletti/../../etc/passwd]
abs_path     : [/etc/passwd]