#Translate any '/' to '\' for Win32
    $file_name =~ s(\/)(\\);

##</code><code>##

    #Translate any '/' to '\' for Win32
    $file_name =~ s(\/)(\\)g;