Select Code to Download

$newpath=join("\",@dirs);

$filepath=~s{/}{\\}g;