perl -MWin32::OLE -d -e 42