Text :: CSV_XS在打印时抛出错误

Question

我正在使用Text :: CSV_XS生成一个csv文件，它在生成文件时会随机抛出以下错误。

Can't locate object method "" via package "IO::File" at /path/to/csv.pm line 34, <FH> line 19866

我们没有做任何复杂的代码：

my $output_path = $filename;
open my $csv_file,">:encoding(utf8)", $output_path or die $self->throw("csv filename open error: $!");

my $csv = Text::CSV_XS->new({ binary => 1 , eol => $/ });
foreach my $row (@{$csv_data}} ){
  $csv->print($csv_file, $row);  # line where error is thrown.
}

$ csv_data包含大约1000条要添加到csv文件的记录。

有人可以指出如何追踪并调试此错误吗？