use Text::Iconv;
my $converter = Text::Iconv -> new ("utf-8", "windows-1251");

use Spreadsheet::XLSX;
my $InFileName = shift @ARGV or die "no input file specified";
chomp (my $excelLocS = $InFileName);
my $excel = Spreadsheet::XLSX -> new ($InFileName) or die "file does not exist";