$Win32::OLE::Warn = 3;

##</code><code>##

Win32::OLE->Option(Warn => 3);