I see some problems unrelated to your question at a glance.

1) What's open $backup_report;? That just dies in 5.6.1 and 5.8.0. Update: oh I see, this is a placeholder.

2) use win32::ole; should be use Win32::OLE;. The former will load the module, but won't import any symbols because package names are case-sensitive.

3) You shouldn't use & in front of function names unless you know how it affects the function being called. No, it's not purely decorative.

4) I think putting a space in front of a function's opening parenthesis can confuse perl in some circumstances. I'm not sure what those are.

5) It's wierd to exit from a successful function. You should move the goto Q_End; to the line after &checkfile ($a_final_denis);