use strict;
use warnings;
use Cwd;

print cwd();
my $path_data = cwd () . "\\data"; #Also want to make the concat in-casesensitive
chdir($path_data) or die "Cant chdir to $path_data $!";
print "\n", cwd();