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