how use Spreadsheet::ParseExcel::Stream;?

[cibien]

Hi Perl Monks, I use Spreadsheet::ParseExce (interface to Excel data) but I have a memory overhead. I can solve the problem using Spreadsheet::ParseExcel::Stream does not parse the entire document to memory with no memory overhead. But I'am novice in perl and I not know how apply this module. can you help me? here is the first part of the code:

use Encode;
use utf8;
use XML::LibXML;
use Spreadsheet::ParseExcel;


system("cls");


my $materialmapping_file = shift;
my $data_folder = shift;


unless (defined $materialmapping_file and defined $data_folder)
   {
      print "Usage: $0 <materialmapping_file> <data_folder>\n";
      exit;
   }

    opendir ( DIR, $data_folder ) || die "Error in opening dir $data_f
+older\n";
    
    my $materialmapping_table_xml = XML::LibXML->createDocument( "1.0"
+, "UTF-8");
    my $materialmapping_table_xml_root = $materialmapping_table_xml->c
+reateElement("masterdata");
    $materialmapping_table_xml_root->setAttribute('version',getSQLTime
+Stamp());
    $materialmapping_table_xml->setDocumentElement($materialmapping_ta
+ble_xml_root);
    
    print "loading...\n";
    while(($filename = readdir(DIR))){
        
        next unless $filename =~ /\.xls$/i;

            print " - $filename \n";


            
            my $parser     = Spreadsheet::ParseExcel->new();

            my $oBook  = $parser->parse($data_folder.$filename);
             next unless defined $oBook;




                for(my $iSheet=0; $iSheet < $oBook->{SheetCount} ; $iS
+heet++) {
                       $oWkS = $oBook->{Worksheet}[$iSheet];

please help me, here is the site "http://search.cpan.org/~dougw/Spreadsheet-ParseExcel-Stream-0.05/Stream.pm" thank you very much Andrea