my $OLE;

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);