#!/usr/bin/perl -w
use strict;
use Spreadsheet::ParseExcel;
$|++;
my $parser   = Spreadsheet::ParseExcel->new();
my $workbook = $parser->parse('1.xls');

if ( !defined $workbook ) {
    die $parser->error(), ".\n";
}

my $worksheet = $workbook->worksheet(0);

my $cell = $worksheet->get_cell(1,1);
print "value: ", $cell->value();