my $OLE = 0;

BEGIN
{
   eval
   {
       require Win32::OLE::Const;
       Win32::OLE::Const->import('Microsoft Excel');
       $OLE = 1;
   };
   
   if ( $@ )
   {
       require Spreadsheet::SimpleExcel;
       $OLE = 2;
   }
}

print qq(Result: $OLE\n);