#!/usr/bin/perl -w

    use strict;
    use Spreadsheet::ParseExcel::Simple;


    my $workbook  = Spreadsheet::ParseExcel::Simple->read('example.xls');

    my $worksheet = ($workbook->sheets())[1];

    while ($worksheet->has_data()) {  
        my @data = $worksheet->next_row();
        print "@data\n";
    }