#  untested
use File::BOM qw( :all );
use Spreadsheet::Read;

open_bom(my $fh, $file, ':utf8');
my $book  = ReadData ($fh, parser => "csv");