#!/usr/bin/perl

use warnings;
use strict;
use Win32::OLE;
use Win32::OLE::Const 'Microsoft Excel';
use Win32::OLE qw(in with);
use utf8;
use Encode;

my $editOWS_file = 'C:\\Users\\lordsll\\Downloads\\Chinese_output.out';
open OUT1, ">:encoding(UTF-8)","$editOWS_file" or die "Can't write on file $editOWS_file: $!\n";

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

my $Book = $Excel->Workbooks->Open("C:\\Users\\LordsLL\\Downloads\\problem_sample.xlsx");
$Excel->Worksheets(1)->Activate();

my $cell  = $Excel->Worksheets(1)->Range("A1")->{Value};
print OUT1 "$cell\n";