I think this might be your problem:

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

Your translation (why is it s instead of tr?) is only going to get one slash, not them all. You need the 'g' modifier.

The code above might be rewritten this way:

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

I stopped reading when I saw that, so if that's not the problem, let us know. Maybe I'll read further.