sub _print_to_csv {
my ( $header, $results ) = @_;
binmode STDOUT, ":utf8";
binmode STDOUT, ":encoding(UTF-8)";
my $csv = Text::CSV_XS->new(
{ sep_char => $del,
-