use strict;
 use warnings;
 use OLE;
 use Win32::OLE::Const "Microsoft Excel";
 my $MY_EXCEL="E:\\readexcel.xlsx";
 my $excel = CreateObject OLE "Excel.Application";
 my $workbook = $excel -> Workbooks -> Open("$MY_EXCEL");
 my $Sheet -> Range ("A1") -> {Value};
 print "S H E E T : $Sheet\n";
 $excel-> Quit;