Select Code to Download

use Text::CSV_XS qw( csv );

...
    sep   => "\t",
    on_in => sub { $sth->execute (@{$_[1]}) },
    );