print "$dir\n";
my $dir = join "\\", @path[0,1,2,3,4,5,6];