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}";
       }

      }

##</code><code>##

Use of uninitialized value in numeric lt (<) at /usr/lib/perl5/site_perl/5.8.1/Converter.pm line 149.

##</code><code>##

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