package MyTest; #------------------------------------------------------------------------ # INIT #------------------------------------------------------------------------ use strict; use Win32::OLE; use Win32::OLE::Variant; 1;