use strict;
use warnings;
use feature 'say';
use Spreadsheet::Read;
use Spreadsheet::ParseExcel;

open my $h, '<', '1.ods';                       # this file exists

Spreadsheet::ParseExcel-> new-> parse( $h );    ####
say 'eof' if eof $h;
say 'ok'  if defined ReadData( $h );


##</code><code>##

Sorry, references as input are not (yet) supported by Spreadsheet::ReadSXC at xl.pl line 11.