#!/usr/bin/perl -w
 
use strict;
use Spreadsheet::Read;
use Data::Dumper;
 
my $xls = ReadData ("Input/sample.xls");
 
print $xls->[1]{'A1'};
exit;

use OLE;
use Win32::OLE::Const 'Microsoft Excel';
 my($xapp) = CreateObject OLE 'Excel.Application' || die $!;
	$xapp->{'Visible'} = 1;
 
	# Open the excel file
	$wkb = $xapp->Workbooks->Open('filename');
	if ( ! $wkb )
		{ print "Can't open filename\n"; exit; }	
  $wks = $wkb->Worksheets("Sheet1"); #what ever the sheet name
$wks->Cells(1,1)->{'Value'} = 'whatever'; #assign to 'whatever'
 
$val=$wks->Cells(1,1)->{'Value'}; #which reads from cell 1,1 and answers the next questioner
$wkb->SaveAs({Filename => 'newfile'});
	$wkb->Close();
	$xapp->Quit();