my $xls = Spreadsheet::ParseExcel::Simple->read( 'spreadsheet.xls' );
foreach my $sheet ($xls->sheets) {
    while ($sheet->has_data) {  
        print join( ', ', $sheet->next_row ), "\n";
    }
}