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

##</code><code>##

$path = $path . '\\' . $file;

##</code><code>##

$path = "$path\$file";

##</code><code>##

$file =~ tr|/|\\|;