#!/usr/local/bin/perl

use strict;
use warnings;
use Spreadsheet::ParseExcel;

my $file = shift @ARGV;

my $excel = Spreadsheet::ParseExcel::Workbook->Parse($file);
my $worksheet = $excel->Worksheet(0);

my $cell = $worksheet->{Cells}[33][13];

print $cell->Value,"\n";