use strict;
use feature ':5.10';
use Win32::OLE qw(in with CP_UTF8);
Win32::OLE->Option(CP => CP_UTF8);
use Win32::OLE::Const 'Microsoft Excel';
use Win32::OLE::Variant;
use Win32::OLE::NLS qw(:LOCALE :DATE);
$Win32::OLE::Warn = 3;                                # die on errors...
my $Excel = Win32::OLE->GetActiveObject('Excel.Application') || Win32::OLE->new('Excel.Application', 'Quit');  # get already active Excel
$Excel->{'Visible'} = 1;
my $Book = $Excel->Workbooks->Open("mybook.xlsx"); # open Excel file -- requires explicit DOS path
my $Sheet = $Book->Worksheets(1); # name or number
my $lastrow = $Sheet->UsedRange->Find({What=>"*",SearchDirection=>xlPrevious,SearchOrder=>xlByRows})->{Row};
my $sheetdate = Variant(VT_DATE,$Sheet->Range("A5")->{'Value'});
my $date = $sheetdate->Date(DATE_LONGDATE);