my $newpath = join '\\', @dirs;