my $MYfh; 
  openL (\$MYfh, '<:encoding(UTF-8)', $MYPath)
          or die ("unable to open $file ($^E)");
  my $excel = Spreadsheet::XLSX -> new ($MYfh);