#!/usr/bin/perl
use strict;
use warnings;

use Spreadsheet::Read;

my $workbook = ReadData ($ARGV[0]);
print $workbook->[1]{A3} . "\n";