perl -MWin32::OLE -MWin32::OLE::Variant -e 1