my $file = shift @ARGV;
 my $converter = Text::Iconv->new("utf-8","windows-1251");
my $excel = Spreadsheet::XLSX -> new ($file, $converter);
die "open failed" unless $excel;
#(convert to html here)