Select Code to Download

sub __load_zip {
    my ($filename) = @_;
...
    
    return $zip;
}

  open (my $MYfh,'<',$MYpath) or die "cant open $MYPath @!";        
  my $excel = Spreadsheet::XLSX -> new ($MYfh);

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