$dir_win='C:\work\PSRC\SRC\*'; # '' keep \ is \
$dir_win2="C:\\work\\PSRC\\SRC\\*"; # "" \\ translate to \
$dir_unix=join('/',split(/\\/,$dir_win));
print $dir_unix . "\n";
$dir_unix2=join('/',split(/\\/,$dir_win2));
print $dir_unix2;
$dir_win =~ s/\\/\//g;
print("\n\n dir_win=$dir_win\n");
my @fs=glob($dir);
foreach (@fs) {
#print $_."\n";
}