sub xls_conv($)
      {
       use Spreadsheet::ParseExcel;
       my $oExcel = new Spreadsheet::ParseExcel;

       my $excelfileis = $self->{filename};
       my $oBook = $oExcel->Parse("$excelfileis");

for(my $iSheet=0; $iSheet < $oBook->{SheetCount}; $iSheet++)
       {
               print "$oBook->{SheetCount}";
       }

      }