my $book = ReadData ($content);

##</code><code>##

perl -Mstrict -MData::Dumper -MSpreadsheet::Read -wE 'my $data=ReadData("A,B,C\na,b,c",parser=>"csv",debug=>9); say Dumper $data'
$Options = {
             'rc' => 1,
             'attr' => 0,
             'dtfmt' => 'yyyy-mm-dd',
             'parser' => 'csv',
             'cells' => 1,
             'clip' => 1,
             'strip' => 0,
             'debug' => 9
           };
Opening CSV IO using Text::CSV_XS-1.26
CSV sep_char ',', quote_char '"'
Can't locate object method "getline" via package "A,B,C
a,b,c" (perhaps you forgot to load "A,B,C
a,b,c"?) at /Users/nick/perl5/perlbrew/perls/perl-5.22.0/lib/site_perl/5.22.0/Spreadsheet/Read.pm line 517.

##</code><code>##

perl -Mstrict -MData::Dumper -MSpreadsheet::Read -wE 'my $data=ReadData("A,B,C\na,b,c",debug=>9); say Dumper $data'
$Options = {
             'attr' => 0,
             'cells' => 1,
             'strip' => 0,
             'rc' => 1,
             'debug' => 9,
             'dtfmt' => 'yyyy-mm-dd',
             'clip' => 1
           };
$VAR1 = undef;

##</code><code>##

$ cat SR.pl
use strict; use warnings; use feature 'say';
use Data::Dumper;
use Spreadsheet::Read;

my $csv = do { local $/; <DATA> };
my $data = ReadData( $csv, debug => 9 );

say Dumper $data;

__DATA__
A,B,C
a,b,c

##</code><code>##

perl SR.pl
$Options = {
             'strip' => 0,
             'cells' => 1,
             'rc' => 1,
             'clip' => 1,
             'dtfmt' => 'yyyy-mm-dd',
             'attr' => 0,
             'debug' => 9
           };
Unsuccessful stat on filename containing newline at /Users/nick/perl5/perlbrew/perls/perl-5.22.0/lib/site_perl/5.22.0/Spreadsheet/Read.pm line 849, <DATA> line 1.
$VAR1 = undef;

##</code><code>##

$ perl -MIO::Scalar -E 'say $IO::Scalar::VERSION'
2.111