#!/usr/bin/perl

use strict;
use warnings;
use feature 'say';

use Spreadsheet::Read;
use open ':std', ':encoding(UTF-8)';

my $book  = ReadData('euro.xlsx');
my $cell  = $book->[1]{A1};

say $cell;