#!/usr/bin/perl -w 

use strict;
use Spreadsheet::ParseExcel;

my $xlsParser=Spreadsheet::ParseExcel->new();
my $workbook = $xlsParser->parse('example.xls');
if (!defined $workbook) {
    die "Can't parse: ". $xlsParser->error();
}
my $worksheet=($workbook->worksheets)[0];
print "C1 contains: ".$worksheet->get_cell(0,2)->unformatted."\n";
print "C2 contains: ".$worksheet->get_cell(1,2)->unformatted."\n";
