Help for this page
print "$dir\n"; my $dir = join "\\", @path[0,1,2,3,4,5,6];
h:\one\two\three\for\five\six\seven\eight