use strict;
use warnings;
use Win32::OLE;
use Win32::OLE qw( with);
use Win32::OLE::Const 'Microsoft Excel';
use Win32::OLE::Variant;
use Win32::OLE::NLS qw(:LOCALE :DATE);
use Cwd;

     my $FIC="test.xls";

     my $REP = getcwd;
        $REP =~ s/\//\\/g;

     my $Excel = Win32::OLE->GetActiveObject('Excel.Application') || Win32::OLE->new('Excel.Application');
        $Excel->{Visible} = 1;


     my $book = $Excel->Workbooks->Open("$REP/$FIC") or die Win32::OLE->LastError;
     my $sheet = $book->Worksheets("Feuille");
     my $date = $sheet ->Cells(12,2)->{'Value'};
     print "$date";