Select Code to Download

use strict;
use File::Spec::Functions;
...
my @dirs = qw( ../dir/path1 ../dir/path2 );
my @canon_dirs = map { canonpath($_) } @dirs;
print Dumper(\@canon_dirs);

../somedir/path
$VAR1 = [
          '../dir/path1',
          '../dir/path2'
        ];

..\somedir\path
$VAR1 = [
          '..\\dir\\path1',
          '..\\dir\\path2'
        ];

use strict;
use File::Spec::Functions;
...
print "$file1\n";
my $file2 = canonpath("$ROOTDIR/../input/data2.txt");
print "$file2\n";

C:\Data\data.txt
C:\Data\..\input\data2.txt

/var/data/data.txt
/var/data/../input/data2.txt